Aşağıdaki kod bilgisayarda Acrobat Reader var ise dosyanızı Acrobat ile yoksa pdf dosyaları ile ilişkilendirilmiş default uygulama ile açar.

On Error GoTo DefApp

Dim SPath As String

SPath = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe" & " " & TextBox1.Value

Shell (SPath)

DefApp:

CreateObject("Shell.Application").Open (TextBox1.Value)

End Sub