Sub DisplayDouble(language As String, region As String, number As Double) As String
Dim jo As JavaObject
jo = jo.InitializeNewInstance("java.util.Locale.Builder", Null)
Dim locale As JavaObject = jo.RunMethodJO("setLanguage", Array As Object(language)).RunMethodJO("setRegion", Array As Object(region)).RunMethod("build", Null)
Dim numberFormatter As JavaObject = jo.InitializeStatic("java.text.NumberFormat").RunMethod("getNumberInstance", Array As Object(locale))
Dim retVal As String = numberFormatter.RunMethod("format", Array As Object(number))
Return retVal
End Sub