Realizar un ejercicio con la sentencia if then

Realizar un ejercicio con la sentencia if then que me permita ingresar un numero y me muestre un mensaje si es positivo o negativo y si es par o impar.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

DIM A AS Integer

A = TextBox1.Text

IF (A) > 0 THEN

Message("POSITIVO")

IF (A) MOD 2 THEN

Message("EL NUMERO ES IMPAR")

ELSE

Message("EL NUMERO ES PAR")

END IF

ELSE

Message("NEGATIVO")

IF (A) MOD 2 THEN

Message("EL NUMERO ES IMPAR")

ELSE

Message("EL NUMERO ES PAR")

END IF

END IF

END

PUBLIC SUB Button2_Click()

Textbox1.text = ""

END

PUBLIC SUB Button3_Click()

QUIT

END