' Annahme: Es existiert ein Recordset mit den Sprachen und Keys
Dim sLang As String
 
With Combo1
  Do Until Rs.Eof
    sLang = Rs("Sprache")
    sLang = sLang & Space$(500 - Len(sLang))    
    .AddItem sLang & Rs("Key")
    Rs.MoveNext
  Loop
Wend

Dim sKey As String
sKey = Mid$(Combo1.Text, 501)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de