INPUT "Your string: ", s$

IF VAL(s$) = 0 AND s$ <> "0" THEN
    PRINT "Not a number"
ELSE
    PRINT "This is a number"
END IF