Fecha en textbox

Hola amigos trato de validar fechas en un textbox logro poner el formato y validar pero cuando hay error no logro que se posicione en el textbox de la fecha se pasa al siguiente.
Aquí esta el código que estoy usando:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) = 8 Then
TextBox1.Value = (Mid(TextBox1, 1, 2) & "/" & Mid(TextBox1, 3, 2) & "/" & Mid(TextBox1, 5, 4))
GoTo fin
End If
If Len(TextBox1) = 6 Then
TextBox1.Value = (Mid(TextBox1, 1, 2) & "/" & Mid(TextBox1, 3, 2) & "/" & Mid(TextBox1, 5, 2))
GoTo fin
End If
Beep
TextBox1 = Empty
MsgBox "FECHA EN FORMATO EQUIVOCADO"
TextBox1.SetFocus
Fin:
End Sub