Private Sub Command1_Click()
MsgBox "Guten Morgen!", 16, Time
Case 13 To 18
MsgBox "Guten Tag!", 16, Time
Case 18 To 24
MsgBox "Guten Nacht!", 16, Time
MsgBox "Guten Morgen!", 32, Time
Case 13 To 18
MsgBox "Guten Tag!", 32, Time
Case 18 To 24
MsgBox "Guten Nacht!", 32, Time
MsgBox "Guten Morgen!", 48, Time
Case 13 To 18
MsgBox "Guten Tag!", 48, Time
Case 18 To 24
MsgBox "Guten Nacht!", 48, Time
Case 9 To 13
MsgBox "Guten Morgen!", 64, Time
Case 13 To 18
MsgBox "Guten Tag!", 64, Time
Case 18 To 24
MsgBox "Guten Nacht!", 64, Time
End Sub