Dim WithEvents g_objFaxServer As FAXCOMEXLib.FaxServer
Dim collFaxOutgoingJobs As FAXCOMEXLib.FaxOutgoingJobs
Dim objFaxOutgoingJob As FAXCOMEXLib.FaxOutgoingJob

//создаем файл_ответов 
 1 ) cmd /c echo [components] > %temp%\ocm.txt
 2 ) cmd /c echo Fax=On >> %temp%\ocm.txt
//проверяем-устанавливаем fax service, система сама попросит диск
// /r-не перегружать, /q -вообще не выводить на экран
 3 ) sysocmgr /i:%windir%\inf\sysoc.inf /u:%temp%\ocm.txt /r
//ну и удаляем ненужный более файл
 4 ) cmd /c del %temp%\ocm.txt /q

sysocmgr    open    /i:%%windir%%\inf\sysoc.inf /u:%%temp%%\%s
/r%s  /q [components]
Fax=On

Public Function bla-bla_Initialise(ByRef _hwnd As Long, ByRef err_text As String, ...) As Boolean
...
  hMod = LoadLibrary("bla-bla.dll")
  If hMod = 0 Then
    err_text = "bla-bla.dll not found"
    bla-bla_Initialise = False
    Exit Function
  End If
  
  If (GetProcAddress(hMod, "function1") = 0) Or (GetProcAddress(hMod, "function2") = 0)... ) Then
    err_text = "bla-bla.dll is invalid"
    bla-bla_Initialise = False
    Exit Function
...
  End If

Public Function bla-bla_Initialise(ByRef _hwnd As Long, ByRef err_text As String, ...) As Boolean
...
  hMod = LoadLibrary("bla-bla.dll")
  If hMod = 0 Then
    err_text = "bla-bla.dll not found"
    bla-bla_Initialise = False
    Exit Function
  End If
  
  If (GetProcAddress(hMod, "function1") = 0) Or (GetProcAddress(hMod, "function2") = 0)... ) Then
    err_text = "bla-bla.dll is invalid"
    bla-bla_Initialise = False
    FreeLibrary hMod
    Exit Function
  End If

  FreeLibrary hMod

...
  End If