Excel / VBA applicatie werkt niet meer in O 2021

Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
                                           Alias "GetOpenFileNameA" ( _
                                           pOpenfilename As OPENFILENAME) As Long

#If VBA7 Then
    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
            "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
      
    Private Type OPENFILENAME
        lStructSize As Long
        hwndOwner As LongPtr
        hInstance As LongPtr
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As LongPtr
        lpfnHook As LongPtr
        lpTemplateName As String
    End Type
  
#Else

    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
            "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
      
    Private Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
    End Type
#End If

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( pOpenfilename As OPENFILENAME) As Long

Application.FileDialog(msoFileDialogFilePicker)

Option Explicit

Private Sub cmdSelectExport_Click()

    Dim lThisWorkbook As Workbook
    Dim lExportWorkbook As Workbook

    Dim sWorkbooksOpen As String

    Set lThisWorkbook = ThisWorkbook

    Worksheets("Vragen").Range("I2:I100").Value = ""

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "LimeSurvey export (*.xls)", "*.xls"
        .InitialFileName = ThisWorkbook.Path
        .Title = "Selecteer het LimeSurvey exportbestand"
        If .Show Then
            sWorkbooksOpen = .SelectedItems(1)
            Workbooks.Open (sWorkbooksOpen)
            Set lExportWorkbook = ActiveWorkbook
            If MsgBox("Het bestand is geselecteerd." & Chr(10) & "Klik OK om het bestand te verwerken.", vbInformation + vbOKCancel) = vbOK Then
                lExportWorkbook.Worksheets(1).Range("D2:BZ2").Copy
                lThisWorkbook.Worksheets("Vragen").Range("I2").PasteSpecial xlPasteValues, , , True
                lExportWorkbook.Close
            Else
                lExportWorkbook.Close
            End If
            Worksheets("Resultaat").Activate
            MsgBox ("Bestand is succesvol verwerkt")
        End If
    End With

End Sub