Private Function get_Monster( _
  ByVal sHtmltext As String) As Variant
 
  Dim aPos As Long
  Dim sPos As Long
  Dim ePos As Long
  Dim nCount As Long
  Dim sTemp As String
  Dim sAuto As String
 
  nCount = 0
  If sHtmltext <> "" Then
 
  aPos = 0
 
  Do
     sPos = InStr(sPos, LCase$(sHtmltext), "Auto")
     If aPos > 0 Then
      'AUTO gefunden!!
      aPos = InStr(aPos, sPos, "px")
      If sPos > 0 Then
        'px gefunden!!
        sAuto = Mid$(2, aPos + 4)
       MsgBox (sAuto)
       End If
      End If
  Loop
 
End Function
  End If