Codigo para ver si una persona es apta o no para presentar el servicio militar

Dim sexo As Integer
Dim nacion As Integer
Dim edad As Integer

Private Sub Command1_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
If edad > 17 And edad < sexo =" 1" nacion =" 1"> " " Then
edad = Val(Text1.Text)
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> " " Then
sexo = Val(Text2.Text)
End If
End Sub

Private Sub Text3_Change()
If Text3.Text <> " " Then
nacion = Val(Text3.Text)
End If
End Sub