Problem med Regular Express

För mig är det här knepigt...
I Text1 så läser jag in en styl-fil (binary).
Jag plockar därefter ut de 16 olika stylenamnen(jag visar inte den koden den är för stor).
Därefter så ville jag söka efter dessa stylenamn en efter en, som ligger sparat i text(0).tag t ex)
Jag försöker nu använda mig av regular express:

Dim regxp As Object, oMatch As Object, MatchC As Object, intPos As Long
  Text2.Text = ""
   intPos = InStr(1, Text1.Text, "OC31", 0)
   
   Set regxp = CreateObject("VBScript.RegExp")
   regxp.IgnoreCase = True

   regxp.Pattern = Text(Index).TagDim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As MatchCollection
   Dim RetStr As String, intPos As Long
   Dim TestRegExp As String  
   Text2.Text = ""
   intPos = InStr(1, Text1.Text, "OC31", 0)
   Set objRegExp = New RegExp  
   objRegExp.Pattern = Text(Index).Tag
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
  
       If (objRegExp.Test(Text1.Text) = True) Then
        Set colMatches = objRegExp.Execute(Text1.Text)
            For Each objMatch In colMatches
              RetStr = RetStr & "Match found at position "
              RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
              RetStr = RetStr & objMatch.Value & "'." & vbCrLf
              
                Text1.SelStart = objMatch.FirstIndex
                Text1.SelLength = objMatch.Length               
            Next
       Else
              RetStr = "String Matching Failed"
              Text1.SelStart = 1
       End If
   TestRegExp = RetStr
   Text2.Text = TestRegExp
   Text1.SetFocus
   Set objRegExp = Nothing

Vad som är problemet är att den jämmför(pattern) på ett lustigt sätt.
Jag kan själv se att namnet finns, som han skall leta upp, men han gör inte det alltid, bara ibland.
Hur kan jag förändra pattern?