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