Convert.ToSingle
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