Как персонифицировать описание ошибки вызова метода COM-объекта в скомпилированном приложении?

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    Dim oShell As Object
    Set oShell = CreateObject("WScript.Shell")
    oShell.CurrentDirectory = "***"
    Set oShell = Nothing
    Exit Sub
    
ErrorHandler:
    Debug.Print Now & " - " & "frmMain.Form_Load" & " - #" & Err.Number & " " & Err.Description & ". LastDllError = " & Err.LastDllError
    Resume Next
End Sub

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    
    Dim oShell As New WshShell
    oShell.CurrentDirectory = "***"
    Exit Sub
    
ErrorHandler:
    MsgBox Now & " - " & "frmMain.Form_Load" & " - #" & Err.Number & " " & Err.Description & ". LastDllError = " & Err.LastDllError
    Resume Next
End Sub

Sub Main()
    HomeDir$ = App.Path
    Cmd$ = Command$
    If Cmd$ = "" Then
       MsgBox "Íå óêàçàíî èìÿ ìîäóëÿ!", vbCritical
       Exit Sub
    Else
       If InStr(Cmd$, "\") = 0 Then
          fnam$ = HomeDir$ + "\" + Cmd$
       Else
          fnam$ = Cmd$
       End If
       If Dir$(fnam$, vbNormal) = "" Then
          MsgBox "Ìîäóëü " + fnam$ + " íå íàéäåí!", vbCritical
          Exit Sub
       Else
          fi% = FreeFile
          Open fnam$ For Binary Access Read Write As #fi%
          Get fi%, &H3C + 1, L&
          Put fi%, L + &H5C + 1, CLng(3)
          Close fi%
       End If
    End If
End Sub

        sss = 3
        'проверяем изменился ли номер операции в KT
        'если изменился, добавляем новую операцию,
        'если не изменился, все добавляем в эту же операцию
        If CurCodeOper <> Val(XL_KT.Workbooks(1).WorkSheets(1).Cells(i, 6)) Then
            sss = 4
            CurCodeOper = Val(XL_KT.Workbooks(1).WorkSheets(1).Cells(i, 6))
            'узнаем номер операции
            CurNomerOper = CurNomerOper + 10
            If CurNomerOper >= 100 Then
                CurNomerOperText = CStr(CurNomerOper)
            Else
                CurNomerOperText = "0" & CStr(CurNomerOper)
            End If
            newoper = 1
            sss = 5
        Else
            sss = 6
            newoper = 0
        End If
        sss = 7
        If CurCodeOper > 0 Then
            sss = 8
            XL_TX.Columns("A:A").Select
            XL_TX.Selection.Find(What:=CurCodeOper).Activate
            XL_TX.ActiveCell.Select
            seltxt = "SELECT * from tbltools where groupid = 0"
            Set SprOper = DBPro.OpenRecordset(seltxt, dbOpenDynaset, dbSeeChanges)
            sss = 9
            'проверяем есть ли операция в ИБ, если нет, добавляем, если есть - обновляем ее сведения
            j = XL_TX.ActiveCell.Row
            seltxt = XL_TX.Workbooks(1).WorkSheets(1).Cells(j, 2) & IIf(Len(XL_TX.Workbooks(1).WorkSheets(1).Cells(j, 2)) > 0, " ", "") & XL_TX.Workbooks(1).WorkSheets(1).Cells(j, 3) & XL_TX.Workbooks(1).WorkSheets(1).Cells(j, 4)
            seltxt = Replace(seltxt, "  ", " ")
            sss = 10
            If Len(seltxt) > 0 Then
                sss = 11
                seltxt = "SELECT tblTools.* FROM tblTools INNER JOIN tblGroups ON tblTools.GroupID = tblGroups.GroupID WHERE (tblTools.ToolName = '" & seltxt & "') AND (tblGroups.GroupType = 1)"
                Set VspTable = DBPro.OpenRecordset(seltxt, dbOpenDynaset, dbSeeChanges)
                If VspTable.RecordCount > 0 Then
                    sss = 12

    MsgBox "Загрузка окна. Ошибка N" & Err.Number & " - " & Err.Description & " строка=" & sss