Eingabeformat prüfen und "abfangen"

Dim olddate As Date, newdate As Date, antwort As String
olddate = Worksheets("Datum").Range("A2").Value
antwort = MsgBox("Die Auswertung erfolgt für 4 Wochen beginnend mit " & olddate & "! Soll  _
dieses Datum beibehalten werden?", vbYesNoCancel)
If antwort = vbNo Then
newdate = InputBox("Mit welchem Datum soll die Auswertung beginnen? (Format TT-MM-JJ)")
Worksheets("Datum").Range("A2").Value = newdate
End If

Das funzt auch prinzipiell. Nun würde ich gerne irgendwie abfangen, wenn das Datum in einem falschen Format eingegeben wird, z. Bsp. ohne Punkte oder Striche zwischen den Zahlen. Kann mir da bitte jemand weiterhelfen?
Danke im Voraus.
David