Application VisualBasic Script

Sub main()
    MsgBox Application.Path & "\EXCEL.EXE"
End Sub