Chris,

Try this, I haven't tested it.

normLog10.Show

With TextBox7
.SelStart = 0
.SelLength = Len(.Text)
End With

GoTo again1:



regards
Neil


"inquirer" wrote in message
...
In a user form I want to ensure that textbox7 contains either YES or NO
when the form is completed. If there is anything else in textbox7, I want
the form shown again with the focus on textbox7 and its contents
highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell me what is missing please?


Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris