Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Function GetExeName() As String
Dim rTmp As String
Dim rLen As Long
rTmp = String(260, 0)
rLen = GetModuleFileName(App.hInstance, rTmp, Len(rTmp))
If rLen Then GetExeName = Left$(rTmp, rLen)
End Function