Visual Basic - cliente/servidor

Hola. He realizado una aplicación cliente servidor. La aplicación del servidor es la siguiente:
Private Sub cmdEnviar_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub
Private Sub cmdEscuchar_Click()
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

La plicación del cliente es:
Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect

End Sub
Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar

End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Primero ejecuto en un pc el servidor y lo pongo escuchando. Luego ejecuto el cliente en otro pc e introduzco la dirección ip del pc del servidor y le doy a conectar. pero me pone el sgte error:
Address is not available from the local machine

PQ?
Gracias