Dim nPos As Long
Dim ePos As Long
Dim sKurs As String
 
' nach Adidas suchen
nPos = InStr(1, sHTML, "adidas", vbTextCompare)
If nPos > 0 Then
  ' wenn gefunden, jetzt nach "Aktuell" suchen
  nPos = InStr(nPos, sHTML, "Aktuell")
  If nPos > 0 Then
    ' wenn gefunden, jetzt nach dem HTML-Endtag > suchen
    ' nach diesem Zeichen befindet sich der Kurswert
    nPos = InStr(nPos + 1, sHTML, ">")
    If nPos > 0 Then
      ' Kurswert geht bis zu  ...
      ePos = InStr(nPos + 1, sHTML, "&")
      If ePos > 0 Then
        ' aktueller Kurswert aus HTML-Quelltext extrahieren
        sKurs = Mid$(sHTML, nPos + 1, ePos - nPos - 1)
      End If
    End If
  End If
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de