Imports System
Public Class Program
Public Shared Sub Main()
Dim f As Single = 23.8901F
Dim num = f - Math.Truncate(f)
Console.WriteLine(num)
Console.WriteLine(String.Format("{0:0.0000}", num))
End Sub
End Class
' run:
'
' 0.890100479125977
' 0.8901
'