Imports System Imports Microsoft.VisualBasic Module MainClass Sub Main( ) Dim value As Byte = 241 Try Dim newValue As SByte = (CSByte(value)) Console.WriteLine(newValue) Catch e As OverflowException Console.WriteLine("Exception: {0} > {1}.", value, SByte.MaxValue) End Try End Sub End Module