Winsock question

[Granger9]

I got this code from a previous thread.

But it does not seem to work for me it gets stuck in Do Unitl Winsock.state = 7 loop. Any ideas?

Private DLFile As String
 
Private Sub Command1_Click()
Dim txtServer As String
Dim txtFile As String
 
txtFile = "/operational/pibs/pib1.shtml"
txtServer = "www.nats.co.uk"
 
    Winsock1.RemoteHost = txtServer
    Winsock1.RemotePort = 80
    Winsock1.Connect
    Do Until Winsock1.State = 7
        DoEvents
    Loop
    Winsock1.SendData "GET " & txtFile & " HTTP/1.1" & vbCrLf
    DoEvents
    Winsock1.SendData "Host: " & txtServer & vbCrLf
    DoEvents
    Winsock1.SendData vbCrLf
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim NewData As String
    Winsock1.GetData NewData
    DLFile = DLFile & NewData
    
    Debug.Print DLFile
End Sub