It depends on the control. For an option button:

Private Sub OptionButton1_Click()
Me.TextBox1.SetFocus
End Sub

Or for another textbox:

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Text) = 4 Then
Me.TextBox2.SetFocus
End If
End Sub

--
Dan