Связать VBA Excel файл с DLL без регистрации, с возможностью менять значения ячеек

Формулировка задачи:

Всем привет! Подскажите, пожалуйста, а то я не догоняю что я делаю не так... Я не силен в "ООП", поэтому прошу помощи у профессионалов. Нужно большую часть кода перенести из VBA в DLL, раньше макрос брал данные из ячеек, бегал по листам, создавал книги, возвращался обратно и т.д., но как это прописывается в DLL?

Как прописать вызов функции из excel без указания параметров, так как нужно чтобы эта функция не возвращала значение, а работала с ячейками?
Как из DLL определить нужную книгу (ту из которой была вызвана эта DLL)?
Как передаются массивы?
Почему excel не видит DDL?

Бьюсь уже больше недели, перечитал уже все что можно и где можно... Вот например короткий код и как я это пишу, что не правильно? Это в excel:

Option Explicit
Public Const D0 As Date = #1/1/1970#
#If Win64 Then
Public Declare PtrSafe Function GetTimeZoneInformation Lib "kernel32" _
(lpTimeZoneInformation As TIME_ZONE_INFORMATION) As LongLong
#Else
Public Declare Function GetTimeZoneInformation Lib "kernel32" _
(lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
#End If
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Public Type TIME_ZONE_INFORMATION
        Bias As Long
        StandardName(32) As Integer
        StandardDate As SYSTEMTIME
        StandardBias As Long
        DaylightName(32) As Integer
        DaylightDate As SYSTEMTIME
        DaylightBias As Long
End Type
Public strParam1(10) As String
Public strList1 As String
Public strList2 As String
Public ShTab As Object
Public ShTab2 As Object
Public intColum As Integer
Public intRow4 As Integer
Public s1 As Integer
Public i As Integer
Public p1 As Integer
 
#If Win64 Then
Public Declare PtrSafe Function FnVoz1 Lib "D:\Users\serge\YandexDisk\Temp\VB обучение\Excel and dll\testDLL.dll" ()
#Else
Public Declare Function FnVoz1 Lib "D:\Users\serge\YandexDisk\Temp\VB обучение\Excel and dll\testDLL" ()
#End If
 
Public Sub FnConstant()
strList1 = "List1"    '
strList2 = "List2"    '
Set ShTab = Sheets(strList1)
Set ShTab2 = Sheets(strList2)
intColum = 2
intRow4 = 10
Run.Application FnVoz1
End Sub

Это в DLL Проект1 в Класс1:

Public strList1 As String
Public strList2 As String
Public ShTab As Object
Public ShTab2 As Object
Public intColum As Integer
Public intRow4 As Integer
Public s1 As Integer
Public i As Integer
Public p1 As Integer
 
Public xlApp As Object
Public xlBook As Object
Public xlSheet As Object
 
Public Function FnVoz1()
   On Error Resume Next
 
    Set xlApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Err.Number = 0
        Set xlApp = CreateObject("Excel.Application")
   End If
   On Error GoTo 0
   
strList1 = "List1"    '
strList2 = "List2"    '
Set ShTab = Excel.Sheets(strList1)
Set ShTab2 = Excel.Sheets(strList2)
intColum = 2
intRow4 = 10
 
On Error GoTo CancelHandler
Application.EnableCancelKey = xlErrorHandler
 
s1 = Application.CountIf(Excel.ShTab.Range(Excel.ShTab.Cells(2, intColum), Excel.ShTab.Cells(intRow4, intColum)), "<>""")
  strParam1(i) = ChrW(248)
    For i = 1 To s1
        strParam1(i) = Excel.ShTab.Cells(i + 1, intColum).Value
    Next i

Excel.ShTab.Cells(2, intColum + 1).Select
 
    For i = 1 To s1
      If Excel.ShTab.Cells(i + 1, intColum).Value = 5 Then Call FnVoz2
      ActiveCell.Offset(1, 0).Range("A1").Select
    Next i
    p1 = 1
    
CancelHandler:
Application.EnableCancelKey = xlInterrupt
End Function
Public Function FnVoz2()
On Error GoTo CancelHandler
Application.EnableCancelKey = xlErrorHandler
 
MsgBox "Привет!    "
    
CancelHandler:
Application.EnableCancelKey = xlInterrupt
End Function

Это в Проект1 в Модуль1:

Public strParam1(10) As Variant

Мега мозги, помогите пжл.!

null

Решение задачи: «Связать VBA Excel файл с DLL без регистрации, с возможностью менять значения ячеек»

textual
                            Листинг программы 
                        

                            Sub TestExcel()
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
 
    xlApp = CType(CreateObject("Excel.Application"), _
                Microsoft.Office.Interop.Excel.Application)
    xlBook = CType(xlApp.Workbooks.Add, _
                Microsoft.Office.Interop.Excel.Workbook)
    xlSheet = CType(xlBook.Worksheets(1), _
                Microsoft.Office.Interop.Excel.Worksheet)
 
    ' The following statement puts text in the second row of the sheet.
   xlSheet.Cells(2, 2) = "This is column B row 2"
   ' The following statement shows the sheet.
    xlSheet.Application.Visible = True
    ' The following statement saves the sheet to the C:\Test.xls directory.
    xlSheet.SaveAs("C:\Test.xls")
    ' Optionally, you can call xlApp.Quit to close the workbook.
End Sub
                        