Dim r As New RegExp
Dim s As String
 
  s = "ryr"
 
  r.IgnoreCase = True
 
  r.Pattern = "\[color=(.*?)\].*?"
  Do While r.Test(s)
      s = r.Replace(s, "<font color='$1'>")
  Loop
 
  r.Pattern = "\[\/color\]"
  Do While r.Test(s)
    s = r.Replace(s, "</font>")
  Loop

Ohne Mampf, kein Kampf !