Public Enum Language
    lngEnglish =  67699721 
    lngRussian =  68748313 
End Enum

' Возвращает текущий язык
Public Function CurrentLayout() As Long
    CurrentLayout = SysCmd( 711 )
End Function

' Возвращает 0 если ошибка, иначе текущий язык
Public Function ChangeLayout(lLayout As Language) As Long
    ChangeLayout = SysCmd( 710 , lLayout)
End Function

Sub Test()
    If CurrentLayout() = lngEnglish Then
        ChangeLayout lngRussian
    Else
        ChangeLayout lngEnglish
    End If
End Sub

Sub Test1()
    Debug.Print acSysCmdAccessDir
    Debug.Print acSysCmdAccessVer
    Debug.Print acSysCmdClearHelpTopic
    Debug.Print acSysCmdClearStatus
    Debug.Print acSysCmdGetObjectState
    Debug.Print acSysCmdGetWorkgroupFile
    Debug.Print acSysCmdIniFile
    Debug.Print acSysCmdInitMeter
    Debug.Print acSysCmdProfile
    Debug.Print acSysCmdRemoveMeter
    Debug.Print acSysCmdRuntime
    Debug.Print acSysCmdSetStatus
    Debug.Print acSysCmdUpdateMeter
End Sub