Eror con el cliente/servidor de esta web

Tzimize
26 de Octubre del 2003
Buenas, intento llevar a cabo esa aplicación cliente servidor de http://www.programacion.com/tutorial/vbcliserv/
con unicamente unas sutiles modificaciones graficas, ignoro si llegará a conectar , pero al enviar texto ya me muestra error tal que:

"Error 40006 en tiempo de ejecución.
Wrong protocol or connection state for the requested transaction or request"

Mi código es el que sigue.
Gracias de antemano, seguro que es alguna clase de error estúpido.

---------------------------------------------------------------------------
Server

Private Sub Cmdonoff_Click()
Winsock1.Listen
End Sub

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

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
MsgBox "conexion"
End Sub

Private Sub Cmdhablar_Click()
Dim enviar As String
enviar = Txtfrase.Text
Winsock1.SendData enviar
End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Client

Private Sub Cmdhablar_Click()
Dim enviar As String
enviar = Txtfrase.Text
Winsock1.SendData enviar
End Sub

Private Sub Cmdllamar_Click()
Winsock1.RemoteHost = Txtip.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Txtchat.Text = Txtchat.Text + datos
End Sub
---------------------------------------------------------------------------
Y este es TODO el código, advertireis que es el de la web así que no me explico que pueda contener error.
De antemano, gracias por la ayuda.