Private Sub Form_Initialize()
    Me.Show
    Select Case Date
    Case "01.07.2004"
        MsgBox "Schöner Juni", vbOKOnly, "Es ist Juni"
    Case "21.12.2004"
        MsgBox "Heute ist die längste Nacht im Jahr", vbOKOnly, "Bald ist" & _
          "Weihnacht"
    Case Date
        MsgBox "Guten Tag", vbOKOnly, "täglicher Gruß"    
    End Select
End Sub