Dim DSec As FileDialog, SPath As String

Set DSec = Application.FileDialog(msoFileDialogFilePicker)

    

DSec.AllowMultiSelect = False

DSec.Title = "Dosya Seçiniz"

DSec.InitialFileName = "C:\"

DSec.Filters.Add "PDF Dosyaları", "*.pdf"

If DSec.Show = -1 Then

SPath = DSec.SelectedItems(1)

Me.TextBox1 = SPath

Else

MsgBox "İptal edildi."

Exit Sub

End If

End Sub

şeklinde uygularsanız pdf dosyaları filtrelenmiş olarak dosya seçebilirsiniz. Ben sehven klasör seçmeye göre yazmışım öncekinde kusura bakmayın.