Verifier une saisie dans une textbox d'un userform

Bonjour,
j ai un userforme avec 2 textbox txtbox1 et textbox2
je souhaiterais verifier deux choses
1)qu'une valeur est bien saisie dans la textbox1(pas d evaleur null ou vide)
2)idem pour textbox2 amis en plus je voudaris vérifier que la saisie est bein au format date type dd/mm/yyyy

ci joint l e bout de code que j'ai ecrit mais qui ne fonctionne pas du tout
Private Sub CommandButton1_Click()
Dim response, rep As String
'verification saisie du nom
If TextBox1.Value = " " Then
Msg = "Please enter your name"
Style = vbCritical + vbDefaultButton2
reponse = MsgBox(Msg, Style)
Cancel = True
TextBox1.SetFocus
End If
10 rep = InputBox("Please fill in the date of validation") 'entree de l adate de validation
'verification de la saisie
If rep = " " Then
MsgBox "Please fill in a date"
GoTo 10
End If
'verification du format de la saisie

If rep <> CDate(Format(rep)) Then
MsgBox "Date format not correct.", vbCritical + vbOKOnly, "Error"
rep = ""
GoTo 10
Else
TextBox2.Value = CDate(rep)
Label2.Caption = "Validation date:"
Label2.Visible = True
TextBox2.Visible = True
End If

merci de votre aide