Private sub Form_load()
ws.connect "www.hl2spain.com", 80
End Sub

Private sub ws_Connect()
ws.senddata "Get " & "/" & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: Programa" & vbCrLf & "Host: " & rHost & vbCrLf & "Pragma: no-cache" & vbCrLf & vbCrLf
end sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long) 
On Error GoTo Error
dim Data as string
ws.getdata Data
Text.text & text1.text & data & vbcrlf
Error:
end sub