Пожалуйста, помогите адаптировать код из excel VBA в visual studio 2017

---

Уважаемые Эксперты,
Я наблюдал необходимый код в vba excel, но не могу переместить его в visual studio и объединить в отдельное exe-приложение. Вы не могли бы мне помочь?

Что я уже пробовал:

'Procedure is called when files are dropped to the TreeView in the user form
Private Sub ExportTreeView_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim fso As New FileSystemObject
    Dim fld As Folders
    Dim fls As Files
    Dim sFileName As String
    Dim sFilePath As String
    Dim iTotalTreeElems As Integer
    Dim sFilesArray() As String
    Dim iTotalFiles As Long
    Dim sBufArray(1000) As String
    Dim sBufSize As Integer
    Dim sRepName As String
    
    Dim iRows As Integer
    Dim sActiveSheet As String
    Dim sKey As String
    Dim sMask As String
    Dim sStr As String
    Dim i As Integer
    Dim j As Integer
    
    Application.ScreenUpdating = False
    sActiveSheet = ThisWorkbook.ActiveSheet.Name
    
    
    
    ThisWorkbook.Sheets("UserForm").Select
    sKey = "" 'ExportForm.edtFilterKey.Text
    iRows = Application.WorksheetFunction.CountA(Range("A:A"))
    iTotalTreeElems = Data.Files.Count
    iTotalFiles = 0
    sBufSize = 0
    
    'Get list of files from all folders and subfolders
    For i = 1 To iTotalTreeElems
        
        'Check if dir is folder or filename
        If (fso.FolderExists(Data.Files(i)) = True) Then
            Call General.GetFileList(sFilesArray, Data.Files(i))
        Else
            iTotalFiles = General.GetArraySize(sFilesArray)
            ReDim Preserve sFilesArray(iTotalFiles)
            sFilesArray(iTotalFiles) = Data.Files(i)
        End If
    Next i
    
    iTotalFiles = General.GetArraySize(sFilesArray)
    
    'Go through the list of neccessary files and identify if files suits any of them by mask
    For i = 2 To iRows
        sMask = ThisWorkbook.ActiveSheet.Cells(i, 4)
    
        'iTotFiles = Data.Files.Count
        For j = 1 To iTotalFiles
            
            If sFilesArray(j - 1) <> "" Then
                sFileName = fso.GetFileName(sFilesArray(j - 1))
                sFilePath = fso.GetParentFolderName(sFilesArray(j - 1))
                
                'Check if file match current mask
                If General.CheckMask(sFileName, sMask) = True Then
                    'ThisWorkbook.ActiveSheet.Cells(i, 3) = sFileName
                    'ThisWorkbook.ActiveSheet.Cells(i, 6) = sFilePath
                    
                    sBufArray(sBufSize) = sFilesArray(j - 1)
                    sBufSize = sBufSize + 1
                    
                    'sFilesArray(j - 1) = ""
                    
                    'Data.Files.Remove (j - 1)
                    'Exit For
                End If
            End If
        Next j
        
        sKey = RemoveFiltrSymbols(sKey)
        
        'If more than one file matched Mask then selecet one that has key word
        If sBufSize > 1 Then
            For j = 1 To sBufSize
                sRepName = RemoveFiltrSymbols(sBufArray(j - 1))
                
                If InStr(UCase(sRepName), UCase(sKey)) Then
                    ThisWorkbook.ActiveSheet.Cells(i, 3) = fso.GetFileName(sBufArray(j - 1))
                    ThisWorkbook.ActiveSheet.Cells(i, 6) = fso.GetParentFolderName(sBufArray(j - 1))
                End If
            Next j
        Else
            If sBufSize = 1 Then
                ThisWorkbook.ActiveSheet.Cells(i, 3) = fso.GetFileName(sBufArray(0))
                ThisWorkbook.ActiveSheet.Cells(i, 6) = fso.GetParentFolderName(sBufArray(0))
            End If
        End If
        
        sBufSize = 0
    Next i
    
    ThisWorkbook.Sheets(sActiveSheet).Select
    
    Application.ScreenUpdating = True
    
End Sub

---