'' This works directly when remote host & port is set to "ipchicken" and "80".

Private Sub cmdCheck_Click()

Dim data As String
data = "GET / HTTP/1.0" & vbCrLf
data = data & "Host: ipchicken.com" & vbCrLf & vbCrLf
Winsock.SendData data
DoEvents

End Sub


Private Sub Form_Load()

Winsock.Close
Winsock.RemoteHost = "localhost"
Winsock.RemotePort = "8118"
Winsock.Connect "localost", "8118"

End Sub


'' I get "runtime error: 40006". "wrong protocol or connection state for the requested  transaction or request"
'' Clicking Debug takes me to; "winsock.senddata data" line