Imports System.Globalization
Imports System
Module Example
Public Sub Main()
Dim int1 As Integer = 128
Try
Dim value1 As Byte = CByte(int1)
Console.WriteLine(value1)
Catch e As OverflowException
Console.WriteLine("{0} is out of range of a byte.", int1)
End Try
End Sub
End Module