Textbox highlighting issue

I have a number of textboxes on a userform. When the user enters data beyond accepted paramaters,

1. an error message is generated
2. the form 'close' button is locked (& changes color)
3. the offending input textbox changes color.

I also would like the cursor to return to the offending textbox after step 3 - how do I do this ? (apologies for what must be a basic problem).

Here is a sample of the code I am using:

Private Sub EnterInfo_Click()

If txtStaff.Text = "" Then
MsgBox "Please enter number of staff", 64, "Error Message"
CloseButton.Locked = True
CloseButton.BackColor = &H80000013
txtStaff.BackColor = &H80000013

Else
If txtStaff >= 0 Then
CloseButton.Locked = False
CloseButton.BackColor = &H80000010
txtStaff.BackColor = &H80000005


Any help much appreciated

Cheers

Peter (new to VBA)

Hello Peter,

You just set the focus back on the TextBox. See your code below. The method is in bold type.

Private Sub EnterInfo_Click()

If txtStaff.Text = "" Then
MsgBox "Please enter number of staff", 64, "Error Message"
CloseButton.Locked = True
CloseButton.BackColor = &H80000013
txtStaff.BackColor = &H80000013
txtStaff.SetFocus

Else
If txtStaff >= 0 Then
CloseButton.Locked = False
CloseButton.BackColor = &H80000010
txtStaff.BackColor = &H80000005

Sincerely,
Leith Ross

Thanks Leith - steep learning curve this VBA!

Cheers

Peter