Development VB.Net

Module Example
   Public Sub Main()
        Dim value As String = Convert.ToString(CInt(Short.MaxValue) + 1, 16)
        Try
           Dim number As Short = Convert.ToInt16(value, 16)
           Console.WriteLine(number)
        Catch e As OverflowException
           Console.WriteLine("Unable to convert '0x{0}' to a 16-bit integer.", value)
        End Try   
   End Sub
End Module