Const HKEY_LOCAL_MACHINE = &H80000002' read the value of a setting for the VBA editor from the Registry'' Possible values for SettingName are:'   AutoQuickTips2      (0/1)'   AutoStatement2      (0/1)'   AutoValueTips2      (0/1)'   BackGroundCompile   (0/1)'   CompileOnDemand     (0/1)'   DragDropInEditor    (0/1)'   EndProcLine         (0/1)'   FontFace            (a string, eg "Courier New")'   FontHeight          (an integer number)'   OBGroupMembers      (0/1)   (OB=Object Browser='   OBSearchHeight      (an integer number)'   RequireDeclaration  (0/1)'' If you pass an unrecognized setting name, it raises error 5'' Requires the GetRegistryValue functionFunction GetVBASetting(ByVal SettingName As String) As Variant    GetVBASetting = GetRegistryValue(HKEY_CURRENT_USER, _        "SoftwareMicrosoftVBAMicrosoft Visual Basic", SettingName, "***")    If GetVBASetting = "***" Then Err.Raise 5End Function