VB Code:
  1. MsgBox(Windows.Forms.Application.ExecutablePath())

that will do the job