делаем кнопку на форме и вешаем процедуру
Private Sub cmdBrowse_Click()
Dim file As FileDialog
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Title = "Выберите изображение"
file.AllowMultiSelect = False
file.Filters.Clear
file.Filters.Add "jpg", "*.jpg"
If file.Show Then
Me.txtFilePath = file.SelectedItems.Item(1) ' здесь указываем поле куда вставить путь
End If
End Sub
Возможно надо подключить библиотеку к проекту, но не помню какую