Thanks - that works great!

On Thu, 15 Nov 2007 08:15:21 -0800 (PST), "Dan R."
wrote:

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