Imports System
Imports Microsoft.VisualBasic
Module Int64BitsToDoubleDemo
Sub LongBitsToDouble( argument As Long )
Dim doubleValue As Double
doubleValue = BitConverter.Int64BitsToDouble( argument )
Console.WriteLine(doubleValue )
End Sub
Sub Main( )
LongBitsToDouble( Long.MaxValue )
End Sub
End Module