msg on time

[john tindell]

hey, ive got a command button and i want to display a message depending in the time, eg goodmoring, good evening ect.

can any one help me out

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

thanks