Imports System
Public Class program
Public Shared Sub Main(ByVal args As String())
Dim dbl As Double = 13.019455009
Dim s As String = CStr(dbl)
Console.WriteLine(s)
dbl = 13.819455009
s = CStr(dbl)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 13.019455009
' 13.819455009
'