HTML to BB code Converter

http://social.msdn.microsoft.com/Forums/is/vbgeneral/thread/cb2da3c5-b938-4e74-9df9-c5996f481f60

Public Function ConvertHTML2BB(ByVal html As String) As String
    Try
      'Define regex
      Dim regExp As Regex

      'Regex for URL tag without anchor
      regExp = New Regex("\[url\]([^\]]+)\[\/url\]")
      html = regExp.Replace(html, "<a href=""$1"">$1</a>")

      'Regex for URL with anchor
      regExp = New Regex("\[url=([^\]]+)\]([^\]]+)\[\/url\]")
      html = regExp.Replace(html, "<a href=""$1"">$2</a>")

      'Image regex
      regExp = New Regex("\[img\]([^\]]+)\[\/img\]")
      html = regExp.Replace(html, "<img src=""$1"" />")

      'Bold text
      regExp = New Regex("\[b\](.+?)\[\/b\]")
      html = regExp.Replace(html, "<b>$1</b>")

      'Italic text
      regExp = New Regex("\[i\](.+?)\[\/i\]")
      html = regExp.Replace(html, "<i>$1</i>")

      'Underline text
      regExp = New Regex("\[u\](.+?)\[\/u\]")
      html = regExp.Replace(html, "<u>$1</u>")

      'Font size
      regExp = New Regex("\[size=([^\]]+)\]([^\]]+)\[\/size\]")
      html = regExp.Replace(html, "<span style=""font-size: $1px"">$2</span>")

      'Font color
      regExp = New Regex("\[color=([^\]]+)\]([^\]]+)\[\/color\]")
      html = regExp.Replace(html, "<span style=""color: $1"">$2</span>")

      Return html
    Catch ex As Exception
      Return Nothing
      Debug.Print(ex.ToString)
    End Try
  End Function