Imports System
Public Class MainClass
Shared Sub Main( )
Dim l As Long
Dim s As Single
l = Long.MaxValue
Console.WriteLine(l)
s = Convert.ToSingle(l)
s -= 1000000000000
l = Convert.ToInt64(s)
Console.WriteLine(l)
End Sub 'Main
End Class