Pos tu mismo con lo que has explicado y como bien supones es un problema de conexion entre el cliente y el servidor. Antes de hacer una peticion de conexion recuerda que has de cerrar la conexión . Quiza el problema es ese.
Dim Alarma as string Alarma = "12:00:00" 'Establecemos alarma a las 12:00:00 10 If Not Time = Alarma then Goto 10 Else Magbox "Alarma!!!!" 'Hacemos aparecer un msgbox End if