Dim Suche$, Pos1&, i&
 
  Suche = "<##>"
  Pos1 = 0
  For i = 1 To Len(DeinText) - Len(Suche) + 1
    If Mid$(DeinText, i, Len(Suche)) Like Suche Then
      Pos1 = i
      Exit For
    End If
  Next i
  If Pos1 > 0 Then MsgBox Mid$(DeinText, Pos1, Len(Suche))

Gruss,

Zardoz