Imports System
Public Class Program
Public Shared Sub Main()
Dim f As Single = 98.27601F
Dim s = f.ToString()
Dim index As Integer = s.IndexOf(".")
Console.WriteLine(s.Substring(0, index))
Console.WriteLine(s.Substring(index))
End Sub
End Class
' run:
'
' 98
' .27601
'