WinSock

[jesusmmc]

Hola.
Estoy intentando poder conectarme a un servidor con el siguiente codigo, pero no me funciona.
Yo me tengo que conectar teniendo en cuenta una IP publica y un puerto concreto, y debo identificarme en el servidor con un nombre. El codigo que tengo es el siguiente, si alguien me puede ayudar.

Private Sub Form_Load()
Winsock1.RemotePort = 1023
Winsock1.RemoteHost = "Equipo"
Winsock1.Connect
End Sub

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

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


Gracias
Un saludo