txtLnk.IsHyperlink = True '<==bu kısım veriyi atayacağınız metin kutusunun köprü özelliğini etkinleştirir
Me.txtLnk = "#" & StrYOL & "#"  '<==bu kısım adresi metin kutusuna atar
aslında daha pratik olarak ilgili metin kutusunun tıklanma yada çift tıklanma olaylarından birine

Application.FollowHyperlink metinkutusu.value

yada

CreateObject("Shell.Application").Open (metinkutusu.value)

da yazılabilirdi

    Dim fDialog As Object

  Set fDialog = Application.FileDialog(3)

  With fDialog

      .AllowMultiSelect = False

      .Title = "dosya seç"



      'Clear out the current filters, and add our own.

      .Filters.Clear

      .Filters.Add "Pdf dosyası", "*.pdf"

      .Filters.Add "Word dosyas", "*.doc*"

      .Filters.Add "All Files", "*.*"



      If .Show = True Then

        'Loop through each file selected and add it to the list box.

        For Each varFile In .SelectedItems

          StrYOL = varFile

        Next

      Else

        MsgBox "You clicked Cancel in the file dialog box."

      End If

  End With

txtLnk.IsHyperlink = True

Me.txtLnk = "#" & StrYOL & "#"