Al final lo he hecho asi y me funciona bien, lo pongo por si a alguien le interesa.
Código:
Private Function existe(index As Integer) As Boolean
On Error GoTo falso
If Server(index).LocalPort = 0 Then
existe = True
End If
existe = True
GoTo salir
falso:
existe = False
salir:
End Function
Si el objeto server no existe saltara a la etiqueta "falso" al hacer la consulta y existe sera false.
Gracias por la ayuda!