プログラムを実行したファイルが保存されているフォルダを取得します。
ファイルの保存されているフォルダがアプリケーション（システム）の格納フォルダである場合、この方法でシステムのベースフォルダを取得します。

[Sample]

Function Puf_ThisWB_Path() As String

   Puf_ThisWB_Path = ThisWorkbook.Path

End Function