Pasar el setfocus de texboxt1 cuando esta completo a textbox2 (vba excel)

Ante todo, gracias por la ayuda desinteresada prestada a los compañeros de todoexpertos. Por la cual, voy sacando (y ya esta muy funcional, y trato de mejorarla) mi programa para la gestión de una compra/venta de videojuegos a nivel menor.

Tengo un form, donde hago una búsqueda por fechas. Está funcional.

Dim Dia, Mes As String
Select Case Len(Me.txtFecha1)
    Case 2: Me.txtFecha1.Text = Me.txtFecha1.Text & "/"
    Case 5: Me.txtFecha1.Text = Me.txtFecha1.Text & "/20"
End Select
Dia = Mid(Me.txtFecha1, 1, 2)
Mes = Mid(Me.txtFecha1, 4, 2)
If Dia = "" Then
    Exit Sub
        ElseIf Dia > 31 Then
            MsgBox "Día inválido", vbExclamation
            Me.txtFecha1 = Empty
            Exit Sub
End If
If Mes = "" Then
    Exit Sub
        ElseIf Mes > 12 Then
            MsgBox "Mes inválido", vbExclamation
            Me.txtFecha1 = Empty
            Exit Sub
End If

Ese es mi form y ese el codigo por el que inserto la fecha. 

Tecleando 17 12 18, me inserta la fecha 17/12/2018.

Necesito que al rellenar la fecha en el texfecha1 el setfocus pase automáticamente al texfecha2

¿Alguna idea? Le di vueltas, pero no la encuentro.