comparar horas

[culd]

Ahi te arme una funcion que te devuelve el saludo

Código:

Public Function Saludo() As String
If Hour(Time) >= 7 And Hour(Time) < 12 Then
    Saludo = "Buenos Dias!!!"
    Exit Function
End If

If Hour(Time) >= 12 And Hour(Time) < 8 Then
    Saludo = "Buenas Tardes!!!"
    Exit Function
End If

If Hour(Time) >= 8 And Hour(Time) < 24 Then
    Saludo = "Buenas Noches!!!"
    Exit Function
End If

If Hour(Time) >= 24 And Hour(Time) < 7 Then
    Saludo = "Buenas Madrugadas!!!"
End If
End Function

Es simple, solamente verifica la hora actual y segun la hora devuelve un mensaje