von textbox1 nach textbox2

habe folgendes programm:

Private Sub TextBox1_Change()
Auftrag_txt = TextBox1.Text
If Auftrag_txt = "" Then Exit Sub
If IsNumeric(Auftrag_txt) = False Then GoTo ErrorHandler
If Len(Auftrag_txt) = 6 Then

und hier will ich in die textbox 2 springen : wie? textbox2.??????????

End If
ErrorHandler:
End Sub

danke

norbert