Buenas, como bien dice rerunch muchas de las propiedades globales de las aplicaciones se han perdido o reemplazado.
En tu caso, para acceder en tiempo de ejecucion al path de la aplicación puedes hacerlo de la siguiente manera:
Dim ruta As String = System.Reflection.Assembly.GetExecutingAssembly.Location.ToString
Esto devuelve el path donde se está ejecutando el binario, con el nombre del binario incluido.
Puedes utizar la siguiente función para obtener el path:
Public Function GetPath() As String
Dim ruta As String = System.Reflection.Assembly.GetExecutingAssembly.Location.ToString
Return ruta.Remove(ruta.LastIndexOf("\"), ruta.Length - ruta.LastIndexOf("\"))
End Function
Un Saludo.