Imports System
Public Class Test
Public Shared Sub Main()
Dim sn As Single = 0.95
Dim s As String = FormatPercent(sn)
Console.WriteLine(s)
sn = 0.1234
s = FormatPercent(sn)
Console.WriteLine(s)
sn = 0.05
s = FormatPercent(sn)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 95.00%
' 12.34%
' 5.00%
'