Dim hour As Integer
Dim greeting As String
greeting = "Good "
hour = DateTime.Now.Hour
If hour >= 5 And hour < 12 Then
greeting += "morning."
ElseIf hour > 12 And hour < 17 Then
greeting += "afternoon."
ElseIf hour > 17 And hour < 22 Then
greeting += "evening."
Else
greeting += "night."
End If
System.Console.WriteLine(greeting)
System.Console.ReadLine()