Dim i As Long
  Dim nLen As Long
 
  nLen = Len(sString)
  For i = 1 To nLen - 6
    If IsNumeric(Mid$(sString, i, 6)) Then
      ' Jepp gefunden!
      MsgBox Mid$(sString, i, 6)
      Exit For
    End If
  Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de