Hola!
Si luego de cargar el combo pones lo siguiente:
Código vb:
Ver original'EN EL EVENTO CLICK DEL COMBO
Idioma=MID(ComboBox1.text,1,3)
Te traeria las 3 primeras letras del texto que está en el combo... quedaria algo asi:
Spanish -> Idioma = "Spa"
English -> Idioma = "Eng"
French -> Idioma = "Fre"
German -> Idioma = "Ger"
...
...
Seria menos codigo.

!