初心者です。宜しくお願い致します。
あるテキストファイルのデータを読み込んで使用する場合、任意に指定(Cドライブの何処かのファイ
ル
を指定するとか)して使用するまではわかったのですが、実行ファイル(.exe)と同じフォルダ内に指定
する方法がわかりません。
大変申し訳ございませんが、是非ご教授お願い致します。

> を指定するとか)して使用するまではわかったのですが、実行ファイル(.exe)と同じフォルダ内に指定
> する方法がわかりません。
ここの［ファイル操作関係］をご覧下さい。

早速のご回答有り難うございます。
ご指摘のところを参照させて頂きましたが、どうしてもうまくいきません。
私の書き方がいけないと思うのですが、下記の通りに書く「定数式が必要です」とエラーが出ます。

お時間がある時で構いませんので、何がいけないのか教えていただければ有りがたいです。
ちなみに「test.txt」というファイルに書き込む・読み込む際に使用したいと思っております。

Public Function fMyPath() As String
    'プログラム終了まで　MyPath　の内容を保持
    Static MyPath As String
    '途中でディレクトリ-が変更されても起動ディレクトリ-を確保
    If Len(MyPath) = 0& Then
        MyPath = App.Path         'ディレクトリ-を取得
        'ルートディレクトリーかの判断
        If Right$(MyPath, 1&) <> "\" Then
            MyPath = MyPath & "\"
        End If
    End If
    fMyPath = MyPath
    
      '定数の宣言
Const DataFile As String = strMyPath & "\" & "testo.txt"
    
End Function

Option Explicit

Private DataFile As String

Private Sub Form_Load()
    DataFile = fMyPath & "testo.txt"
    Debug.Print DataFile
End Sub

Private Function fMyPath() As String
    'プログラム終了まで　MyPath　の内容を保持
    Static MyPath As String
    '途中でディレクトリ-が変更されても起動ディレクトリ-を確保
    If Len(MyPath) = 0& Then
        MyPath = App.Path         'ディレクトリ-を取得
        'ルートディレクトリーかの判断
        If Right$(MyPath, 1&) <> "\" Then
            MyPath = MyPath & "\"
        End If
    End If
    fMyPath = MyPath
End Function

有り難うございます。
これで試してみます。
お手数をおかけいたしました。

> 早速のご回答有り難うございます。
> ご指摘のところを参照させて頂きましたが、どうしてもうまくいきません。
> 私の書き方がいけないと思うのですが、下記の通りに書く「定数式が必要です」とエラーが出ます
。

定数の宣言には変数を使うことができません。
っていうか、strMyPathって何が入っているんでしょうか?
さらに、プロシージャの最後に定数の宣言をしても、そのままプロシージャを抜けて
定数が開放されてしまい、意味がないと思うんですが(^^;

あ、すでに解決済みだったんですね(^^;
でも、自分の書き込みを消そうと思っても、修正はできるけど
削除はできませんでした。

花さん、LESIAさん　有り難うございました。
無事解決致しました。

また、勝手ながらまだまだ教えて頂きたい事が出てくるかと思われます。
その際には、宜しくお願い致します。