msg on time

[nateobot]

I think this is what you need.
Might want to double check first.

Dim i As Variant
i = Time
If i < "23:59:59" Then
    If i < "17:00:00" Then
        If i < "12:00:00" Then
            If  i < "03:00:00" Then
                MsgBox "GoodEarly Early Moring"
            end if            
        else
            MsgBox "GoodMoring"
        end if
     else
            MsgBox "Good Afternoon"
     end if
else 
    MsgBox "Good Night"
end If