TEST регистрации библиотек

Option Explicit
'
'Регистрация DLL // © Антихакер32™
'
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Test_Reg()
    '
    'Ключи /S /U /F можно вводить в любой последовательности и регистре
    'но первый параметр при вызове RegLib должен быть путь к библиотеке
    'S - Тихий режим без вызова сообщений об ошибке
    'U - Отмена регистрации
    'F - Не выгружать библиотеку
    '
    Dim o As Object, path$
    ChDir ThisWorkbook.path
    path = "Min.dll"
    Shell "RegLib " & path
    While Len(GetSetting("RegLib", 0, 0)) = 0: DoEvents: Sleep 100: Wend
    If GetSetting("RegLib", 0, 0) Then
        Set o = CreateObject("Project1.Class1")
        o.out "Hello Word!"
    End If
    Shell "RegLib " & path & "/u" 'Отменить регистрацию
End Sub