muchas gracias a los que respondieron, yo mismo ya hice el codigo, asi que lo cuelgo por si alguna persona lo necesite:
supongamos que quiera ver que la hora actual este contenida entre las 05:15:14 p.m. y las 09:16:11 a.m.(del dia sgte obviamente)
(creo que lo correcto seria llamarlo dentro del rango de..)
Option Explicit
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim a As Date
Dim b As Date
a = CDate("08/01/2009" & " " & "05:15:14 p.m.")
b = CDate("08/01/2009" & " " & "09:16:11 a.m.")
Dim criterio As Date
criterio = CDate("08/01/2009" & " " & Time)
If DateDiff("s", a, b) < 0 Then
b = DateAdd("d", 1, b)
End If
If DateDiff("s", a, criterio) > 0 And DateDiff("s", b, criterio) < 0 Then
MsgBox "esta contenido"
End If
End Sub
saludos