Sub wzSplitPath()
  Dim wzPath As String
  Dim wzDrive As String
  Dim wzDir As String
  Dim wzFile As String
  Dim wzExt As String

    WizHook.Key =  51488399 
    
    wzPath = "c:\dir1\dir2\nombre_archivo.txt"
    WizHook.SplitPath wzPath, wzDrive, wzDir, wzFile, wzExt
    Debug.Print "Устройство: "; wzDrive
    Debug.Print "Каталог: "; wzDir
    Debug.Print "Имя файла: "; wzFile
    Debug.Print "Расширение файла:"; wzExt
    
End Sub

Sub wzTableFieldHasUniqueIndex()
  Dim wzTable As String
  Dim wzField As String

    WizHook.Key =  51488399 

    wzTable = "MyTable"
    wzField = "MyField"
    
    Debug.Print WizHook.TableFieldHasUniqueIndex _
                       (wzTable, wzField)
    
End Sub

Sub wzTwipsFromFont()
  Dim wzFontName As String
  Dim wzSize As Long
  Dim wzWeight As Long
  Dim wzItalic As Boolean
  Dim wzUnderline As Boolean
  Dim wzCch As Long
  Dim wzCaption As String
  Dim wzMaxWidthCch As Long
  Dim wzdx As Long
  Dim wzdy As Long

    WizHook.Key =  51488399 
    
    wzFontName = "Arial"
    wzSize =  8 
    wzItalic = True
    wzUnderline = True
    wzCaption = "Тестовая строка для определения размеров"
        
    WizHook.TwipsFromFont wzFontName, wzSize, wzWeight, _
                          wzItalic, wzUnderline, wzCch, _
                          wzCaption, wzMaxWidthCch, _
                          wzdx, wzdy

    Debug.Print "Ширина в твипах: " & wzdx
    Debug.Print "Высота в твипах: " & wzdy
    
End Sub

  WizHook.Key =  51488399 
  Dim bR As Boolean ' результат (успех/неуспех)
  Dim pbstrUID As String 'сюда вернется имя пользователя для стандарной безопасности или пусто, если win-идентификация
  Dim pbstrPwd As String ' сюда вернется пароль текущего пользователя (или пусто)

  WizHook.Key =  51488399 
  bR = WizHook.AdpUIDPwd(pbstrUID, pbstrPwd)
  Debug.Print bR, pbstrUID, pbstrPwd

Const ENABLE_WIZHOOK =  51488399 
Const DISABLE_WIZHOOK =  0 


WizHook.Key = ENABLE_WIZHOOK 
do something...
WizHook.Key = DISABLE_WIZHOOK