Te falta establecer el puerto, podes hacer asi mas facil :

winsock.close 'para evitar errores
winsock1.connect ip, puerto

tambien te faltaria esto:

Private Sub winsock_Close()  'para que si se desconcta saberlo
lblEstado.Caption = "Desconectado"
ws.Close
End Sub

Private Sub winsock_Connect()  'para que si se conecta saberlo
lblEstado.Caption = "Conectado"
End Sub


Private Sub winsock_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) 'por si hay error que cierre
ws.Close
End Sub



y bueno hay creo que esta

chau salu2!!!