SENTENCIA IF

PUBLIC SUB Button1_Click()
DIM A AS String
A = TextBox1.Text

IF A = ("MEDICINA") THEN
Message("BOLETA DE CALIFICACIONES")
Message("PRIMERA CALIFICACION:20; SEGUNDA CALIFICACION 19; TERCERA CALIFICACION 18")
ELSE
Message(" SE INVITA A LOS PADRES DE FAMILIA A UNA PLATICA AMISTOSA")
END IF
END

PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END