aPath = Application.StartupPath.ToString & "\..\..\"
Con ello te bajas los niveles que desees..., si quieres comprobar que realmente estas en el directorio deseado puedes recorrer los files de tu aplicacion o el directorio seleccionado.
Te pongo un ejemplo.
Cita: aPath = Application.ExecutablePath.ToString & "\..\..\"
Dim d As New System.IO.DirectoryInfo(aPath)
For Each f As System.IO.FileInfo In d.GetFiles
MessageBox.Show(f.Name)
Next
Espero te sirva...
