Bence

Private Sub .....

Dim SPath As String 

With Application.FileDialog(msoFileDialogFolderPicker) 

.Title = "Dosya Seçiniz" 

.AllowMultiSelect = False    'çoklu seçim için True olmalı

.InitialFileName = "C:\xxx\

If .Show Then 

SPath = .SelectedItems(1) 

Me.TextBox = SPath 

Else 

MsgBox "İptal edildi." 

Exit Sub 

End If 

End With 

End Sub

gibi kod ile dosya seçebilir, dosya yolunu bir textboxa atayabilir ve bunu parametre olarak kullanıp istediğiniz şekilde kaydedebilirsiniz. Kontrol noktasında işlem başarılı ise PDF ile alakalı bir görseli de image kontrole yüklersiniz komut olarak illa bir resim gibi eklemeniz gerekiyor ise.