Application Location on VB.net EXE path

Application Location on VB.net EXE path
From dll
exe path = System.Windows.Forms.Application.StartupPath()
from exe
exe path = Application.StartupPath

appDir As String = Application.StartupPath.Substring(0, Application.StartupPath.LastIndexOf("\"))
appExePath As String = Application.StartupPath
appname As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath).ToUpper