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