3.- Capturar los cinco datos mas importantes de un Empleado, incluyendo el

DIM A AS Integer
A = TextBox6.Text
IF A > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
Message("BONO DE DESPENSA DE 150")
END IF