Private AusgabeStr As String
 
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "www.finanzen.net"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
AusgabeStr = ""
Winsock1.SendData "GET /analyse/Beiersdorf_buy-Goldman_Sachs_Group_Inc__325977" _
& " HTTP/1.1" & vbCrLf & _
"Host: www.finanzen.net" & vbCrLf & _
"Connection: close" & vbCrLf & vbCrLf
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tempStr As String
Winsock1.GetData tempStr
AusgabeStr = AusgabeStr & tempStr
End Sub
 
Private Sub Winsock1_Close()
Winsock1.Close
Dim Ergebnis As String, AnfPos As Long
AnfPos = InStr(1, AusgabeStr, "<div class=""fliessTextBlock"">")
If AnfPos > 0 Then AnfPos = InStr(AnfPos, AusgabeStr, vbLf)
If AnfPos > 0 Then
Ergebnis = Mid(AusgabeStr, AnfPos + 1, InStr(AnfPos + 1, AusgabeStr, "<br>") - ( _
  AnfPos + 1))
MsgBox Ergebnis
End If
End Sub