Private Sub Form_Load()
ID = 1
WebBrowser1.Navigate2 ("http://cs-expert.de/cse_user_profil.php?m_id=" & ID)
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
x = WebBrowser1.Document.documentElement.outerHTML
LastHit = 1
For i = 1 To 8
y = InStr(LastHit, x, "user_cp_pics/inf_bgr.gif")
z = InStr(y + 1, x, "<br>")
LastHit = z
If i Mod 2 <> 0 Then
MsgBox (Mid(x, y + 35, z - y - 35))
Else
MsgBox (Mid(x, y + 25, z - y - 25))
End If
Next
End Sub