Volendo puoi anche risolvere in maniera più semplice: imposta la proprietà MaxLength di entrambe le textbox a 4, quindi inserisci il seguente codice:
codice:
Private Sub Text1_Change()
    If Len(Text1.Text) = Text1.MaxLength Then Text2.SetFocus
End Sub
(supponendo che la prima textbox si chiami Text1 e la seconda Text2).
Quanto alla domanda del tuo ultimo post, basta fare come nel codice appena riportato (Len(NomeTextBox.Text)).