Sub ChangeLang(language As String, region As String)
dim jo As JavaObject
jo = jo.InitializeNewInstance("java.util.Locale.Builder", Null)
jo.RunMethodJO("setLanguage", Array As Object(language)).RunMethodJO("setRegion", Array As Object(region)).RunMethod("build", Null)
End Sub