Köprü yerine aşağıdaki kodu kullanabilirsiniz.

Dim vrtSelectedItem As Variant

Set DosyaBul = Application.FileDialog(msoFileDialogFilePicker)

With DosyaBul

    .AllowMultiSelect = False

    .ButtonName = "Dosya Seç"

    .Filters.Add "Hepsi", "*.*"

    .FilterIndex = 0

    .InitialView = msoFileDialogViewThumbnail

    .Title = "Seç..."

        If .Show = True Then

            For Each vrtSelectedItem In .SelectedItems

             Me.dosya_yolu = vrtSelectedItem

            Next vrtSelectedItem



   

        End If

End With

Kodu metin kutusunun tıklandığında olayına yazın.