CShort Function

CShort Function

 CShort(   expression   )

expression (required; Numeric or String): The range of expression is -32,768 to 32,767; fractions are rounded.

expression cast as a Short

Converts expression to a Short value; any fractional portion of expression is rounded.

expression must evaluate to a numeric value; otherwise , a type-mismatch error is generated.
If the value of expression is outside the range of the Short data type, an overflow error is generated.
When the fractional part of expression is exactly .5, CShort always rounds it to the nearest even number. For example, .5 rounds to 0, and 1.5 rounds to 2.

 Dim iMyNumber as Short If IsNumeric(sMyNumber) then     iMyNumber = CShort(sMyNumber) End If

When converting a string representation of a number to a numeric, you should use the data type conversion functions such as CShort instead of Val , because the data type conversion functions take into account the system's regional settings. In particular, CShort recognizes the thousands separator if it's present in expression , whereas Val does not. For example, if expression is 1,234, CShort successfully converts it to the integer value 1234, while Val converts it to 1.
Use IsNumeric to test whether expression evaluates to a number before performing the conversion.
CShort differs from the Fix and Int functions, which truncate, rather than round, the fractional part of a number. Also, Fix and Int always return the same type value as was passed in.
Like most of the conversion functions, CShort is not actually a function in the Microsoft.VisualBasic namespace. Instead, it is similar to a Visual C++ macro; the compiler translates the function call into inline code.

The CShort function is new to VB.NET. However, it corresponds directly to the VB 6 CInt function, since both return 16-bit integers.