Visual Basic - subir 2 directorios

Hola gente linda!
Estoy necesitando a partir de la carpeta actual moverme 2 posiciones hacia arriba en la estructura de directorios. ¿Cómo puedo hacer esto?
Abajo les muestro lo que hice pero me parece codigo terriblemente sucio.
Si alguien me puede dar una mano?

Private Sub leerArchivo()
On Error GoTo err:


Dim strReadValue As String
strReadValue = App.Path
Dim vector() As String
Dim i As Integer
vector = Split(strReadValue, "")
strReadValue = ""
For i = 0 To (UBound(vector) - 2)
strReadValue = strReadValue & vector(i) & ""
Next

Dim FileSystem
Dim Fileini As String
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Fileini = strReadValue & "Server.ini"



If FileSystem.FileExists(Fileini) Then

Else

End If
Exit Sub
err:
MsgBox err.Number & " " & err.Description
End Sub