Short = CShort ( Expression )
Конвертирует выражение в короткое целое. Expression - первая конвертация в целое. Затем, если это целое переполняет диапазон short, оно усекается.
PRINT CShort("17")17
PRINT CShort(100000)-31072
PRINT CShort(TRUE)-1