Imports System
Public Class Test
Public Shared Sub Main()
Dim f As Single = 7312.891
Dim s As String = f.ToString()
Dim fraction_part As String = s.Substring(s.IndexOf(".") + 1)
Console.WriteLine(fraction_part(fraction_part.Length - 1))
End Sub
End Class
' run:
'
' 1
'