Private Sub Command1_Click()
   On Error Resume Next
   Dim z1 As String
   Dim z2 As String
   Dim iStart As Integer
 
   z1 = "ÿÿÿÿlog L 06/02/2010 - 22:53:08: RoXx <3" & _
      "Gam!ng<22><STEAM_0:0:17XXXX39><TERRORIST> killed" & _
      "-=Neo=-<21><STEAM_0:1:2770XXXX><CT> with ak47"
 
  z2 = "<##>"
 
  iStart = 1
  Text1 = "Position = " & iPos(z1, z2, iStart)
  Text2 = "Inhalt = " & Mid(z1, iPos(z1, z2, iStart), Len(z2))
End Sub
 
Public Function iPos(z1 As String, z2 As String, i As Integer) As Integer
   Dim s As String
   s = txtFormat(z1)
   iPos = InStr(i, s, z2)
End Function
 
Private Function txtFormat(z1 As String) As String
   Dim x As Integer
   Dim s As String
   Dim z As String
 
   s = UCase(z1)
   For x = 1 To Len(s)
      z = Mid(s, x, 1)
      Select Case z
      Case "0" To "9"
         Mid(s, x, 1) = "#"
      Case "A" To "Z"
         Mid(s, x, 1) = "?"
      End Select
   Next x
   txtFormat = s
End Function