Visual Basic - PARA COMPARAR DOS HORAS?

Hola amigos, gracias por sus respuestas, pero podrías ser un poco mas especifico por que no entiendo bien y disculpen. Este es el codigo que me dieron para comparar una fecha, y es exactamente lo que necesito, pero tambien necesito comparar dos horas de la misma manera. Les agradezco de antemano tu ayuda.

If CDate(txtFECHA) > Date Then
Label1.Caption = "LA FECHA INTRODUCIDA ES POSTERIOR"
ElseIf CDate(txtFECHA) = Date Then
Label1.Caption = "LA FECHA INTRODUCIDA ES HOY"
Else
Label1.Caption = "LA FECHA INTRODUCIDA ES ANTERIOR"
End If

Lo de aumentar la hora es por que necesito que el usuario inserte una hora y luego yo necesito adelantarla en cuatro horas, o tambien necesito saber partiendo de una hora tal, que hora sera dentro de 1 hora y 30 minutos exactamente.

Yo probe asi y no me sirvio

If time(txtHORA) > time Then
Label1.Caption = "LA HORA INTRODUCIDA ES POSTERIOR"
ElseIf time(txtHORA) = time Then
Label1.Caption = "LA HORA INTRODUCIDA ES YA"
Else
Label1.Caption = "LA HORA INTRODUCIDA ES ANTERIOR"
End If

Revisa las funciones DateAdd y DateDiff, en:

http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDateAdd.asp

http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDateDiff.asp

tienes la documentación.

Con DateAdd("h",4,Time) aumentas en cuatro horas la hora actual, con: DateAdd("n",90,Time) aumentas en noventa minutos (una hora y media) la hora actual.

Para comparar diferencias puedes hacer por ejemplo las diferencias en minutos: DateDiff("n",Time,DateAdd("n",60+30,Time)) si obtienes un número mayor que cero la primera es mayor que la segunda, si es cero son iguales y sino el último caso la segunda es mayor que la primera.

Hazle caso a Cecilia, pero también tendrás que poner de tu parte.
No siempre estaremos aquí para ayudarte.

Dim MiTiempo, MiHora, MiMinuto, MiSegundo
MiTiempo = #4:35:17 PM# ' Asigna una hora.
'Esta hora puede tomarse de un cuadro de texto igual que con fechas.
MiHora = Hour(MiTiempo) ' MiHora contiene 16.
MiMinuto = Minute(MiTiempo) ' MiMinuto contiene 35.
MiSegundo = Second(MiTiempo) ' MiSegundo contiene 17.

Para añadir:
DateAdd (Función)
DateAdd(intervalo, número, fecha)
Parte Descripción
intervalo Requerido.Expresión de tipo cadena (String) que contiene el intervalo de tiempo que se desea agregar.
número Requerido.Expresión numérica con el número de intervalos que se desea agregar. Puede ser positiva (para obtener fechas futuras) o negativa (para obtener fechas pasadas).
fecha Requerido. Valor de tipo Variant (Date) o literal que representa la fecha en la que se agregó el intervalo.
Valores
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana
h Hora
n Minuto
s Segundo

Ahora trabaja y haz algo por tí mismo.