Saludo de acuerdo a la hora

Nuker-1
29 de Junio del 2006
Hola, queria saber si alguien puede ayudarme.. necesito decir un saludo cuando se cierra el programa de acuerdo a la hora actual, por ej si la hora actual esta entre la 1 y las 12 que tire MsgBox("Que pases un buen dia") ahora si la hora esta entre las 12 y las 19 diria MsgBox("Buenas Tardes") y si es entre las 20 y las 24 hs dice "Buenas Noches".

Mi problema unico.. es detectar la hora actual sin minutos ni segundos ni que diga am o pm, si pongo Time me da la hora detallada, no sirve busque pero no encuentro como hacer para que tire unicament la HORA. Si pueden responderme, muchas gracias

Nuker-1
29 de Junio del 2006
encontre esto y entonces lo adapte
http://www.programacion.com/foros/32/msg/313760/
Muchas gracias igual

dejo el codigo editado
Private Sub Form_Load()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
MsgBox (lista(0))
End Sub

Nuker-1
29 de Junio del 2006
Ya lo termine, se los dejo por si alguien lo necsita xD

Private Sub Form_terminate()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
Dim hora1
Dim hora2
hora1 = (lista(2))
hora2 = InStr(hora1, "a.m.")
If hora2 > 1 Then
If lista(0) > 0 And lista(0) < 6 Then
MsgBox ("Buenas Noches!")
End If
If lista(0) > 5 And lista(0) < 0 Then
MsgBox ("Buenos dias!")
End If
Else
If lista(0) > 0 And lista(0) < 8 Then
MsgBox ("Buenas Tardes!")
End If
If lista(0) > 7 And lista(0) < 0 Then
MsgBox ("Buenas Noches!")
End If
End If
End Sub