How do I SetFocus on TextBox5 when OK ?

[Big Lar]

[FONT=Verdana]Private Sub TextBox10_Change()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT]
[FONT=Verdana]<o:p></o:p>[/FONT]
[FONT=Verdana]If Trim(Me.TextBox10.Value) = -4 Then<o:p></o:p>[/FONT]
[FONT=Verdana]If MsgBox(Prompt:="Check for $5 Bill in $1 Stack.", Buttons:=vbOKCancel) = vbOK Then<o:p></o:p>[/FONT]
[FONT=Verdana]Exit Sub<o:p></o:p>[/FONT]
[FONT=Verdana]Else<o:p></o:p>[/FONT]
[FONT=Verdana]End If<o:p></o:p>[/FONT]
[FONT=Verdana]End If<o:p></o:p>[/FONT]
[FONT=Verdana]<o:p></o:p>[/FONT]
[FONT=Verdana]End Sub<o:p></o:p>[/FONT]

Suggestions for better code is appreciated, too.

 

[VoG]

Try

Private Sub TextBox10_Change()
If Trim(Me.TextBox10.Value) = -4 Then
    If MsgBox(Prompt:="Check for $5 Bill in $1 Stack.", Buttons:=vbOKCancel) = vbOK Then
        TextBox5.SetFocus
    End If
End If
End Sub

 

[Big Lar]

Peter,

Thanks for the code. I've tried it and the result...

Clicking OK clears the msgbox which then immediately reappears...3 times.
After the 3rd click the msgbox clears and focus is set to TextBox6.

 

[Big Lar]

Any thoughts?
Maybe it's my code stack?