Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer
 
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
 
Private Sub Form_Load()
    MsgBox LangID
End Sub
Public Function LangID() As String
    On Error Resume Next
    Dim sBuf        As String * 255
    Dim l           As Long
    LCID = GetSystemDefaultLangID()
    l = GetLocaleInfo(LCID, &H4, sBuf, Len(sBuf))
    LangID = Left(sBuf, l)
End Function
 

Public Function ObtenerIdioma(ByVal lInfo As Long) As String  
     Dim Buffer As String, Ret As String  
     Buffer = String$(256, 0)  
 
 
     Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))  
     'Si Ret devuelve 0 es porque falló la llamada al Api  
     If Ret > 0 Then  
 
         ObtenerIdioma = Left$(Buffer, Ret - 1)  
     Else  
         ObtenerIdioma = ""  
     End If  
 End Function  
 
 
 'Mostramos el mensaje con el idioma del Sistema y el país  
 '*********************************************************  
 Private Sub Command1_Click()  
 
     MsgBox "Usted vive en: " & ObtenerIdioma(LOCALE_SENGCOUNTRY) _  
            & " (" & ObtenerIdioma(LOCALE_SNATIVECTRYNAME) & ")," & _  
            vbCrLf & "y el idioma es: " & ObtenerIdioma(LOCALE_SENGLANGUAGE)       & " (" & ObtenerIdioma(LOCALE_SNATIVELANGNAME) & ").", vbInformation     
End Sub