si un numero es mayor o menor si es par o impar

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