Winsock Http anfrage

Option Explicit
 Private Connect As Boolean


Private Sub start_Click()
 Dim Url As String
 Dim Host As String
 Dim HttpReq As String

  Url = "http://www.google.de/"
  Host = "google.de"

   If Connect = True Then Exit Sub


     Winsock.RemotePort = "80"
     Winsock.RemoteHost = Host

   Winsock.Close
   Winsock.Connect

  While Not Connect
    DoEvents
  Wend

      Winsock.SendData "GET" & "http://www.google.de/" & " HTTP/1.0" & vbCrLf
      Winsock.SendData "Host: " & Host & vbCrLf
      Winsock.SendData "Accept: */*" & vbCrLf
      Winsock.SendData "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3"
      Winsock.SendData vbCrLf


End Sub
Private Sub Winsock_Connect()
 Connect = True
End Sub


Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
  Winsock.GetData data
  Text1.Text = ""
  Text1.Text = Text1.Text & data
End Sub