Private Sub cmdCheck_Click()

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

End Sub

''' This works directly, but gives me HTTP error code "400; Invalid header received from browser"