SetFocus del TextBox no me funciona correctamente

Saludos mira tengo un problema en un formulario tengo tres textbox, y un teclado virtual cuando el usuario de un click en el botón a llena el primer box con a, paso el foco al segundo al hacer click otra vez en botón a no sucede nada te paso la estructura de control que estoy usando para ver que esta mal... Mil gracias por ayudar.
Private Sub CmdA_Click()
If Txt_a1.Text = Txt_a1.Text + "a" Then
ElseIf Txt_a2.Text = Txt_a2.Text + "a" Then
Txt_a3.SetFocus
Else
Txt_a1.Text = Txt_a1.Text + "a"
Txt_a2.SetFocus
End If
End Sub