Another Approach I Found Somewhere.
Public Const MAX_PATH = 206
Public Declare Function GetModuleHandle Lib _
"kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) _
As Long
Public Declare Function GetModuleFileName Lib _
"kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, _
ByVal lpFileName As String, ByVal nSize As Long) As Long
'App.Path is not always reliable, especially on a network.
'Try using GetModuleFileName API call to avoid the problem
Dim lngFileHandle As Long
Dim lngReturn As Long
Dim strFilePath As String
strFilePath = Space$(MAX_PATH)
lngFileHandle = GetModuleHandle(App.EXEName)
lngReturn = GetModuleFileName(lngFileHandle, strFilePath, MAX_PATH)
MsgBox strFilePath