datos de un enpleado de su sueldo

IF CInt(TextBox1.Text) > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
IF CInt(TextBox1.Text) <= 500 THEN
TextBox2.Text = Val(TextBox1.Text) * 0.25
Message(" BONO DEL 25% ")
END IF
END IF