Una forma es buscanco el ultimo \
POr ejemplo cualquier ruta tiene la sintaxis:
Raiz:\Carpeta1\Carpeta2\...\CarpetaN\NombreArchivo.extencion
Si buscas la ultima posicion del " \ " y asi leer desde esa pocision hasta el final
Prueba esto, cualquier cosa me dices
A = InStrRev(App.Path, "\")
A = Right(App.Path, A)