Dim CODE as String

CODE = Inet1.URL = ("http://page.com")

Open File for Binary write as #1
Put 1,,CODE
Close #1

Text1.Text = Inet1.URL = ("http://page.com")

Winsock1.Connect URL, 80

Private Sub Winsock1_Connect()
Winsock1.SendData "GET " & Text1.Text & " HTTP/1.1" & vbCrLf & _
"Host: " & b & "" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"Accept-Language: en" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

MsgBox = Replace(Inet1.OpenURL("http://www.google.com.ar), vbLf, vbCrLf)