Imports System

Imports System.Globalization

Public Module Module1

    Public Sub Main()

        Dim value As Double

        Dim value2 as Double

​

        value = 120523.5

        value2 = 4838.68

        Console.WriteLine(value.ToString("##", CultureInfo.InvariantCulture))

        Console.WriteLine(value.ToString("#", CultureInfo.InvariantCulture))

        Console.WriteLine(value2.ToString("##", CultureInfo.InvariantCulture))

        Console.WriteLine(value2.ToString("#", CultureInfo.InvariantCulture))

    End Sub

End Module