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.
Bence