Ecriture d'une date

Bonsoir

Un peu embêté pour parvenir à ecrire une condition simple sur une date , je voudrai afficher un message box d'alerte

sur une date choisie ( exemple : 19/10/2013) sans pour autant que celle ci figure dans une cellule

ecrire que si la date du jour est 19/10/2013 alors avoir un premier message box du genre ( rendez vous prevu demain à 10h) à 6h00 puis un autre à midi , puis enfin un dernier à 18h de cette meme journée

Merci pour vos conseils

Bonjour

Une idée

Sub test()
  If Date = DateSerial(2013, 10, 19) Then
    MsgBox "Rendez-vous demain" & vbCr & "à 6h" & vbCr & "à 10h" & vbCr & "à midi"
  End If
End Sub

Merci Banzai ! une forme d'ecriture de la date que je ne connaissais pas , merci à toi

Bonne nuit