Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim goodSingle As BigInteger = 102.43e22
Dim singleFromBigInteger As Single
singleFromBigInteger = CType(goodSingle, Single)
Console.WriteLine(singleFromBigInteger)
singleFromBigInteger = CSng(goodSingle)
Console.WriteLine(singleFromBigInteger)
End Sub
End Module