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