dim p as new CFPreferencesMBS
dim a as CFArrayMBS
dim s as CFStringMBS
dim o as CFObjectMBS
dim sa(-1) as string

o=p.CopyAppValue("AppleLanguages",".GlobalPreferences")

if o<>Nil then
  a=CFArrayMBS(o)
  
  dim i,c as integer
  
  c=a.Count-1
  for i=0 to c
    o=a.Item(i)
    
    if o isa CFStringMBS then
      s=CFStringMBS(o)
      sa.Append s.str
    end if
  next
end if

MsgBox Join(sa,EndOfLine)