Datum Textbox farbig unterlegt z. nachtr. ändern

Private Sub UserForm_Activate()
txtBoxDatum = Date
End Sub

...aber wie schaffe ich es, dass beim aktivieren des Userform das in der Textbox stehende Datum gleich unterlegt dargestellt wird zwecks sofortiger Änderung bei Eingabe einer Zahl? Also in diesem Fall der Tag (...die Ziel-Zellen sind auf "tt.mm.jjjj" formatiert und der Textbox-Wert ist auf "CDate" gesetzt).
...und weiter: Wenn ich dann aber keine vollständige Eingabe gemacht habe oder die Textbox leer verlassen will, eine Fehlermeldung erscheint? Z.B. "Sie müssen ein gültiges Datum eingeben" o.s.ä.. Stichwort "Zwangseingabe".
Wenn das mit der Fehlermeldung zu kompliziert sein sollte, würde es mir reichen, dass das aktuelle Datum einfach wieder erscheint.
Gruß aus dem hohen Norden
Lenhard