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!!!

una forma es esta.

Dim sRutaLib As String
Dim iPos As Integer
MsgBox App.Path
iPos = InStrRev(App.Path, "\")
sRutaLib = Mid(App.Path, 1, iPos) + "lib"
MsgBox sRutaLib

Esto te puede servir

Function GetTheParent(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetTheParent = fso.GetParentFolderName(Drivespec)
End Function