แปลง string 3256.4532 เป็น string 0003256.45 (Zero Fill)

	Dim i as Double = 3256.4532
	Dim Output as string
	Output = i.ToString("0000.00")

	Dim result = String.Format("{0:D5}", number)

Imports System
Namespace StripDecimal_VB
    Class RemoveDecimal
        Shared Sub Main(ByVal args As String())
            Dim testNum As Double = 255.95
            Dim noDecimalVal As String = testNum.ToString().Replace(".", "").PadLeft(9, "0"c)
 
            Console.WriteLine("Original Value: " + testNum.ToString())
            Console.WriteLine("Value w/No Decimal: " + noDecimalVal)
        End Sub
    End Class
End Namespace

X = Right("000000000000000" & Left(X, Len(X) - 2), 10)