4.- Capturar los datos mas importantes de un estudiante incluyendo tres

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox6.Text
IF A = ("MEDICINA") THEN
FMain.Hide
Form1.Show
ELSE
Message("Se cita a los padres del estudiante a una platica amistosa con los maestros de la escuela.")
ENDIF
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
END