Visual Basic - Ayuda App.Path

Hola a todos/as!! He leido en la ayuda que App.Path me devuelve la direccion del archivo .vbp o del .exe. Planteo mi situacion: la direccion de mi ejecutable la obtengo mediante App.Path y ahora lo que yo kiero hacer es entrar en el directorio primario (el directorio que está por encima del directorio actual). ¿Como lo hago?

Ejemplo:

App.Path me devuelve en tiempo de ejecucion C:\Simulador\bin que es donde se encuentra el ejecutable, ¿como podria entonces entrar en esta ruta C:\Simulador\lib?

Gracias!!!

Asi:

obtienes la ruta de la aplicacion. Quitas la ultima carpeta y agregas la carpeta que quieras

Private Sub Command1_Click()
Dim x As String
x = Mid(App.Path, 1, InStr(1, App.Path, "\"))
x = x & "lib"
MsgBox x
End Sub

El ejemplo anterior está bien, solo si la ruta contiene solo una "\". Pero como contiene dos "\" no va a funcionar bien. Es decir, va a devolver "D:\lib" en vez de "D:\Simulador\lib". Para que funcione bien hay que usar la instrucción InStrRev. Algo así:

Private Sub Command1_Click()
Dim x As String
x = Mid(App.Path, 1, InStrRev(App.Path, "\"))
x = x & "lib"
MsgBox x
End Sub

Espero que te sirva.
Saludos.