Определение языка интерфейса приложения MSO

' Определение языка интерфейса приложения MSO
' Тут: 1 = msoLanguageIDInstall, 1049 = Russian (ru-RU)
    If Application.LanguageSettings.LanguageID(1) = 1049 Then 'Russian
       ' Действия ...
    End If
    'Debug.Print Application.LanguageSettings.LanguageID(1)