Android Question How to find out the installed language?

Sub getDeviceLanguage
    
    Dim language As String
    
#if B4A

    Dim jo As JavaObject
    language = jo.InitializeStatic("java.util.Locale").RunMethod("getDefault", Null)

    If language.Length > 2 Then language = language.Substring2(0, 2)

#Else
    
    Dim no As NativeObject
    language = no.Initialize("NSLocale") _
        .RunMethod("preferredLanguages", Null) _
        .RunMethod("objectAtIndex:", Array(0)) _
        .AsString

    If language.Length > 2 Then language = language.Substring2(0, 2)

#End If
    
    deviceLanguage = language.Replace(separator, "_")
    
End Sub