TextBox nur mit Datumsformat

[ottokeil]

Hallo zusammen, 

ich würde gerne meine TextBox1 nur mit einem zulässigen Datumsformat befüllen. Also DD.MM.YYYY 
Dies soll überprüft werden und ansonsten eine MsgBox mit "Bitte geben Sie ein zulässiges Datum im Format DD.MM.YYYY" ein ausgegeben werden.

[ralf_b]

if not Textbox1.text = Format(Textbox1.text,"DD.MM.YYYY") then

msgbox "bla bla"

end if