Formater tekst mellem tags

Jeg har lavet denne funktion til at fjerne al tekst der står mellem [hide] og [/hide], men den virker desværre ikke hvis man bruger linieskift eller hvis man bruger tegnene [ og ].
Er der en som har en ide til en forbedring af funktionen ?


  Set re = New RegExp
  re.Global = True
  re.Pattern = "\[hide\]([^]]*)\[/hide\]"
  Set matches = re.Execute(strtext)

  For Each match In matches
    alltext = match.SubMatches(0)

    link = ""

    strtext = Replace(strtext, match, link)
  Next