[ahmedabdelaliem]

كود :

Private Sub Text1_LostFocus()
If Text1.Text <> "" Then
If Text1.Text <> "ذكر" And Text1.Text <> "انثى" Then
Text1.Text = ""
MsgBox " من فضلك ادخل النوع ذكر او انثى فقط"
Text1.SetFocus
Exit Sub
End If
End If
End Sub

ارجو ان يفيدك هذا الكود