Private Sub CommandButton1_Click()
If TextBox1.Text = "Ok" Then
Unload UserForm1
Else
TextBox1.SetFocus
End If
End Sub
'__________________
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
CommandButton1_Click
End If
End Sub
'__________________
Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub