APPEXENAME$ returns the filename of the executing program.
ExeName = APPEXENAME$
DIM ExeName AS STRING ExeName = "This program is " & APPEXENAME$ MSGBOX ExeName, "I know who I am!", MB_ICONINFORMATION