Visual Basic - Continuacion Ayuda con Aplicacion Cliente Winsock

No me dejo ponerles todo el codigo para que lo vean. Graciass
****************CLIENTE*********************
Private Sub cmdConectar_Click()
Winsock1.RemoteHost = Trim$(txtRemoteHost)
Winsock1.RemotePort = Trim$(txtRemotePort) Winsock1.Connect
End Sub
Private Sub cmdDesconectar_Click()
Winsock1.Close
End Sub
Private Sub cmdEnviar_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData txtEnviar.Text
End If
End Sub
Private Sub Winsock1_Close()
If Winsock1.State <> sckClosed Then _
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
Me.Caption = "Server(" & Winsock1.RemoteHost & " : " & Winsock1.RemotePort & ")"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString
txtDatosRecibidos.Text = sData
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Error Nº: " & Number & Chr(13) & Description & Chr(13) & Scode & Chr(13) & Source
End Sub
Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Caption = "Winsock1 : SendProgress (Sent: " & _
bytesSent & " bytes ; Remaining: " & bytesRemaining & " bytes)"
End Sub