Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings
Imports System.Numerics
Class MainClass
Public Shared Sub Main()
Dim assignedFromDouble As BigInteger = CType(9999.6541, BigInteger)
Console.WriteLine(assignedFromDouble)
Dim assignedFromDecimal As BigInteger = CType(11111.65d, BigInteger)
Console.WriteLine(assignedFromDecimal)
End Sub
End Class