primero q veo q pusiste, el puerto es de tipo entero, no string.
segundo, no se si es el codigo completo pero te falta haceptar la peticion del cliente.
por si no sabes como:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept resquestid
End Sub
yo tambien tengo problemas con el no-ip. si lo corro el cliente y el server en la misma pc, anda perfecto pero no puedo hacerlo desde otra pc
.
si entontras cual es el problema postealo. saludos