Module Example Public Sub Main() Dim sourceNumber As Long = Long.MinValue Dim value As String = Convert.ToString(sourceNumber, 16) Dim targetNumber As UInt64 targetNumber = Convert.ToUInt64(value, 16) Console.WriteLine((targetNumber And &H8000000000000000ul) <> 0) End Sub End Module