実行中のexe格納フォルダにあるhogehoge.txtファイルのパス名を取得する
現在実行中のexeファイル(自身のexeファイル)の格納フォルダを Application.StartupPath で取得し、Path.Combineで hogehoge.txt ファイル名と連結します。

Dim afile As String = System.IO.Path.Combine(Application.StartupPath, "hogehohe.txt")