sPos = 0
  Do
    sPos = InStr(sPos + 1, sHtmltext, "auto", vbTextCompare)
    If sPos > 0 Then
      sAuto = Mid$(sHTMLText, sPos + 7, 2)
       MsgBox sAuto
    End If
  Loop Until sPos = 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de