Imports System.Globalization
Module Example
Public Sub Main()
Dim value As Single = 123456.123456
Dim specifier As String
Dim culture As CultureInfo
specifier = "P"
culture = CultureInfo.InvariantCulture
Console.WriteLine((value/10000).ToString(specifier, culture))
culture = CultureInfo.CreateSpecificCulture("ar-EG")
Console.WriteLine((value/10000).ToString(specifier, culture))
End Sub
End Module