Short = CShort ( Expression )
Converts an expression into a short integer. Expression is first converted into an integer. Then, if this integer overflows the short range, it is truncated.
PRINT CShort("17")17
PRINT CShort(100000)-31072
PRINT CShort(TRUE)-1