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

Shell (SPath)

kısmını

Spath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"& " " & TextBox1.Value

Shell (Spath)

olarak düzenlerseniz Edge'de açar.