Public Sub ConnectToWeather()
 
    On Error GoTo er
 
    With Winsock1
        .RemoteHost = "weather365.net"
        .RemotePort = 80
        .Connect
    End With
 
    On Error GoTo 0
 
    Exit Sub
 
er:
 
    Debug.Print "Err: Sub ConnectToWeather" & err.Number & " : " & _
      err.Description
 
End Sub

Private Sub WinSock1_Connect()
    Dim cmd$, URL$
 
    URL = "deine URL"
 
    cmd = "GET " & URL & " HTTP/1.0" & vbCrLf & "Accept: */*" & _
          vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
 
    meineDaten = ""                         'puffer für HTML leeren
 
    On Error GoTo er
    Winsock1.SendData cmd
    On Error GoTo 0
    Exit Sub
 
er:
    Debug.Print "Sub WinSock1_Connect Error " & err.Number & " : " & _
      err.Description
 
End Sub

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
 
    Dim data$
 
    If Winsock1.State = sckConnected Then
        Winsock1.getData data, vbString
        meineDaten = meineDaten & data
    End If
 
    ' normaleweise müsste man die Daten sammeln und auswerten
    'Content-Length: 1892
    '</html>
    If InStrRev(meinWetter, "</html>") >= 1 Then
        ' hier kannst du die Seite auswerten oder weiterleiten
    End If
 
End Sub