2.- Capturar un numero entero cualesquiera e informar si es o no es múltiplo de 4 ( recordar el operador mod, analizado en el tema de operadores aritméticos).

PUBLIC SUB Button2_Click()
TextBox1.Text = ""

END

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = TextBox1.Text
IF A MOD 2 THEN
Message("NO ES MULTIPLO")
ELSE
Message(" ES MULTIPLO")
END IF

END