اگه بخواهیم این مسیر..مسیر برنامه باشه چطوری ادرس دهی میکنیم؟!
از App.Path استفاده کنید:

Dim dblRet As Double
dblRet = Shell("Explorer " & App.Path, vbNormalFocus)


موفق باشید