Userform hulp gevraagd (knoppen)

Private Sub CommandButton1_Click()
' Label1.Caption = UserForm1.ActiveControl.Name
Dim tb_fileurl As String
tb_fileurl = "N:\Bestanden\Excel\Jaaroverzicht"
Label1.Caption = UserForm1.ActiveControl.name & " " & tb_fileurl
tb_openfiledialog (tb_fileurl)
End Sub
Private Sub CommandButton2_Click()
Dim tb_fileurl As String
tb_fileurl = "N:\Bestanden\Excel\Handleidingen"
Label1.Caption = UserForm1.ActiveControl.name & " " & tb_fileurl
tb_openfiledialog (tb_fileurl)
End Sub
Private Sub CommandButton3_Click()
' Label1.Caption = UserForm1.ActiveControl.Name
Dim tb_fileurl As String
tb_fileurl = "I:\Gegevens\Excel\Verslagen"
Label1.Caption = UserForm1.ActiveControl.name & " " & tb_fileurl
tb_openfiledialog (tb_fileurl)
End Sub

    
Sub tb_openfiledialog(tb_fileurl As String)
Dim fd As FileDialog
Dim FileName As String
Set fd = Application.FileDialog(msoFileDialogOpen)
'the number of the button chosen
Dim FileChosen As Integer
FileChosen = fd.Show
fd.Title = "Kies het juiste bestand"
fd.InitialFileName = tb_fileurl
fd.InitialView = msoFileDialogViewList
'show Excel workbooks and macro workbooks
fd.Filters.Clear
fd.Filters.Add "Excel workbooks", "*.xlsx"
fd.Filters.Add "Excel macros", "*.xlsm"
fd.FilterIndex = 1
fd.ButtonName = "Choose this file"
If FileChosen <> -1 Then
'didn't choose anything (clicked on CANCEL)
' MsgBox "No file opened"
Else
'get file, and open it (NAME property
'includes path, which we need)
FileName = fd.SelectedItems(1)
Workbooks.Open (FileName)
End If

End Sub

    Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd
        .Title = "Kies het juiste bestand"
        .InitialFileName = tb_fileurl
        .InitialView = msoFileDialogViewList
        'show Excel workbooks and macro workbooks
        .Filters.Clear
        .Filters.Add "Excel workbooks", "*.xlsx"
        .Filters.Add "Excel macros", "*.xlsm"
        .FilterIndex = 1
        .ButtonName = "Choose this file"
        If .Show = -1 Then                          'Bepaal of gebruiker op OK-knop heeft geklikt.
            FileName = .SelectedItems(1)
            Workbooks.Open (FileName)
        Else
            MsgBox "Er is op <Annuleren> gedrukt..."
            Exit Sub
        End If
    End With

Private Sub CommandButton1_Click()
    With Application.FileDialog(3)
      .InitialFileName = "N:\Bestanden\Excel\Jaaroverzicht\*.xls*"
      If .Show Then GetObject .SelectedItems(1)
   End With
End Sub