Te tenes que asegurar de que el servidor este a la escucha, y que para enviar datos tiene que tener un receptor, no podes enviarle datos a una conexion vacia.
Lo mismo ocurre con el cliente, primero debe estar conectado para poder enviar datos.
Saludos , si alguna duda, me estoy pasando por aca jaja que me anime a ayudar

Jajaj gracias por el mensaje 100 , entonces lo que pasa es que no se esta alcanzando a conectar el cliente al servidor, porque tu router debe estar filtrando la conexion. Mejor utiliza de ip "127.0.0.1" que es la ip privada. Creo que asi te podria funcionar y pues de nada, estoy para compartir conocimiento...
Saludos

En la parte de enviar datos podes hacer esto:

Dim enviar As String
enviar = Text2.Text
if Winsock1.State = sckConnected then
    Winsock1.SendData enviar
else
    Msgbox "Imposible enviar datos a la ip de destino"
end if
End Sub
 

Saludos de nuevo

ya estoy probando con esto pero tengo otra duda, que hago para poder comunicarme con otra computadora en la red (cliente), me funciona con la ip privada (127.0.0.1) pero que pasa si quiero probar otra ip? por que me filtra la conexion el router? hay forma de burlarlo?

c-ya 

hola ya estoy aqui con nuevas inquietudes jeje, bueno como ya dije he probado los programas de prueba "cliente" y "servidor" con la ip privada y funciona, pero ahora los lleve a la practica, mande el programa cliente a una amiga para probar pero nop (al pulsar enviar sale el cuadrito de Msgbox "Imposible enviar datos a la ip de destino")... probe con el cliente y con el server pero nada, y mencionar que a ella le sale la misma ip que yo en la pagina que me diste 

oye amigo pero le acabo de preguntar a mi amiga cual es su isp y resulta que es otro !!  no se supone que no pueden haber dos equipos con ip iguales en internet  iluminadme