Standard Numeric Format Strings: F1
Imports System.Globalization Module Example Sub Main() Dim doubleNumber As Double doubleNumber = -1898300.1987 Console.WriteLine(doubleNumber.ToString("F1", CultureInfo.InvariantCulture)) ' Displays -1898300.2 End Sub End Module