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)
End Sub
End Module