Imports System
Class Program
Public Shared Sub Main()
Dim x As Single = 9382.4F
Dim y As Long = CLng(Math.Round(x))
Console.WriteLine(y)
x = 9382.5F
y = CLng(Math.Round(x))
Console.WriteLine(y)
x = 9382.6F
y = CLng(Math.Round(x))
Console.WriteLine(y)
End Sub
End Class
' run:
'
' 9382
' 9382
' 9383
'