Visual Basic - Control de conexión con winsock

Hola!
Tengo una aplicación cliente/servidor y en el cliente quiero controlar que si el servidor no está "en marxa" siga probando hasta que consiga la conexión para enviar los datos.

El código es el siguiente:
While (conectado <> 1)
winsock.Connect ip_servidor
If winsock.State = sckConnected Then
Espera (1) 'esperamos 1 segundo
enviar = "control"
winsock.SendData enviar
conectado = 1
Else
Espera (5) 'funcion que hace una pausa durante 5 segundos
End If
Wend

El caso es que me da un error en el connect del winsock.
Alguna ayuda?

Gracias por adelantado y un saludo!

Pues todo depende de que hay en la variable ip_servidor y tal vez de que tipo es

Tambien cuenta que tipo de error te da

Para una respuesta se requieren esos datos