EVALUACION 4 PERIODO

Programa para calcular si es mayor o menor de edad . 

la siguiente es la programacion:

Private Sub Command1_Click()
Dim a As Integer
 a = Text2.Text

If a < 17 Then
Label3 = "MENOR DE EDAD"
    End If
If a >= 18 Then
Label3 = "MAYOR DE EDAD"
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label3 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 
    Text2.SetFocus
    End If
End Sub