Development VB.Net

Class Sample
   Public Shared Sub Main()
        Dim numbers() As UShort = { UInt16.MinValue, 40, 2011, UInt16.MaxValue }
        Dim result As Char
        For Each number As UShort In numbers
           result = Convert.ToChar(number)
           Console.WriteLine("{0} converts to '{1}'.", number, result)
        Next   
   End Sub 'Main
End Class 'Sample