Dim numbersToConvert() As Long = {162345, 32183, -54000}
Dim newNumber As Int16
For Each number As Long In NumbersToConvert
   If number >= Int16.MinValue And number <= Int16.MaxValue Then
      newNumber = Convert.ToInt16(number)
      Console.WriteLine("Successfully converted {0} to an Int16.", _
                        newNumber)
   Else
      Console.WriteLine("Unable to convert {0} to an Int16.", number)
   End If                     
Next
' The example displays the following output to the console:
'       Unable to convert 162345 to an Int16.
'       Successfully converted 32183 to an Int16.
'       Unable to convert -54000 to an Int16.   

long[] numbersToConvert = {162345, 32183, -54000};
short newNumber;
foreach (long number in numbersToConvert)
{
   if (number >= Int16.MinValue && number <= Int16.MaxValue)
   {
      newNumber = Convert.ToInt16(number);
      Console.WriteLine("Successfully converted {0} to an Int16.", 
                        newNumber);
   }
   else
   {
      Console.WriteLine("Unable to convert {0} to an Int16.", number);
   }
}
// The example displays the following output to the console:
//       Unable to convert 162345 to an Int16.
//       Successfully converted 32183 to an Int16.
//       Unable to convert -54000 to an Int16.