Pfad ermitteln in dem die aktuelle Applikation / das aktuelle Programm läuft

Mit dieser Funktion lässt man sich den Pfad ausgeben in dem die aktuelle Applikation, das aktuelle Programm läuft:
Public Function AppPath() As String
Dim szPath As String
szPath = System.IO.Path.GetDirectoryName(_ System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
Return szPath.Substring(6)
End Function