Hola a todos:
Escribo esto a ver si alguien puede echarme una manilla con los sockets en Visual Basic 
Estoy creando una pequeña aplicacion tipo chat entre 2 pcs. Estoy usando el Winsock de VB para ello, y de momento he conseguido que establezca conexion en LAN.
El problema viene al conectar via INET con otro ordenador de un amigo.
Pongo el code:
Private Sub Conectar_Click()
Winsock.RemoteHost = "xxx.xxx.xxx.xxx" '
Winsock.RemotePort = 5555
Winsock.Connect
End Sub
Private Sub Enviar_Click()
Dim Enviar As String
Enviar = Textoaenviar.Text
Winsock.SendData Enviar
End Sub
Private Sub salir_Click()
Winsock.Close
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim textorecibido As String
Winsock.GetData textorecibido
If textorecibido <> "" Then
datosllegan.Text = textorecibido
end if
End Sub
Bien, donde pongo xxx.xxx... es la IP de mi amigo y abajo el puerto que tiene abierto para conexiones entrantes. El problema esta claro, el no recibe ninguna señal que intento conectar con el cliente que él usa en su pc.
¿Qué hago mal? ¿Via INET es de otro método o algo? He intentado conectar a www.google.com por el puerto 80 tambien pero no recibo señal tampoco 
Saludos y gracias a quien pueda ayudarme 
