Visual Basic para Aplicaciones - Por que Winsock no se conecta?

Hola a todos... yo de nuevo, miren tengo un problema bastante comun pero no le encuentrosolucion. Bien, les pongo una parte del codigo:

Compilo un porgrama servidor a la escucha en X puerto:

Con esto pongo a la escucha un puerto cualquiera a la espera de conexiones y al mismo tiempo acepto cualquier conexion entrate.
-------------------------------------
Sub Escuchar()
winsock.Close
winsock.LocalPort = 6654
winsock.Listen
End sub

Private Sub TCP_ConnectionRequest(ByVal requestID As Long)
TCP.Close
TCP.Accept requestID
Me.Caption = "Server (conectado)"
End Sub
--------------------------

Ahora en otra aplicacion ejecuto lo siguiente:
Con esto logro conectar a ambos programas para inciar tranferecias de cualquier tipo.

Sub Conectar ()
winsock.Close
winsock.RemoteHost = LocalHost
winsock.RemotePort = 6654
winsock.Conecct
End sub

Ambos programas funcionan muy bien, dejan en puerto ala escucha, se conecta uno al otro y hacen lo que tengan que hacer, lo he probado en mi pc, corriendo los dos en la misma y conectandolos, fucniona!!
El problema surge ala hora de conectare a la misma aplicacion corriendo en un pc remoto. Con el mismo puerto y todo, pero no se conecta. Me parece que debe ser por el ancho de banda, ya que es corto. Trato de conectare a un pc con una conexion de 56 kbps, igualmente estoy con una conexion de ese tipo.

De antemano gracias.