Mostrar los datos de un empleado si gana mas de 500 mostrar CHEQUE semanal caso contrario un bono del 25%

PUBLIC SUB Button1_Click()DIM A AS Integer
A = TextBox1.Text
IF (A) > 500 THEN Message("CHEQUE SEMANAL")
ELSE
IF (A) < 500 THEN
Message("BONO DEL 25%")
TextBox2.Text = TextBox1.Text * (0.25)
ENDIF
ENDIF
END