FAQ.How do I get the current languages list?
Feedback.

Answer: Try this code:
Example:

Sub Open()
  dim s(-1) as string
  
  s=Languages
  
  MsgBox Join(s,EndOfLine)
End Sub

Function Languages() As string()
  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
  
  Return sa
End Function

Notes:
On Mac OS X you can get the list of current languages like this list:

de
en
ja
fr
es
it
pt
pt-PT
nl
sv
nb
da
fi
ru
pl
zh-Hans
zh-Hant
ko

Which has German (de) on the top for a German user.
This code has been tested on Mac OS X 10.5 only.