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