Visual Basic - Abrir pantalla para seleccionar archivo(common dia

Resulta que dentro de una función tengo que abrir el common dialog dos veces. La primera vez le indico que me vaya a la carpeta por defecto, C:\Carpeta 1, y después de seleccionar un archivo, se me abre otra pantalla , esta vez direccionado por defecto a C:\carpeta2. Para eso escribo esto:

Dim DlgAbrir As New CommonDialog

'la primera pantalla
nombre_archivo = ""
DlgAbrir.DialogTitle = "Guardar en carpeta 1"
DlgAbrir.Filter = "Archivos Excel xls|*.xls"
DlgAbrir.InitDir = "C:\Carpeta1"
DlgAbrir.ShowOpen

'la segunda pantalla
nombre_archivo = ""
DlgAbrir.DialogTitle = "Seleccionar en Carpeta2"
DlgAbrir.Filter = "Archivos Excel xls|*.xls"
DlgAbrir.InitDir = pathDirListasNuevas
DlgAbrir.ShowOpen
path = DlgAbrir.FileName
DoCmd.TransferSpreadsheet acImport, 8, "Listas", path, True, ""

Pero por alguna razón, la primera pantallita de diálogo me la abre bien , en la carpeta 1, pero la segunda pantallita, no me abre en Carpeta 2 sino en carpeta 1. Al parecer se le queda grabada la dirección de antes.

¿qué tengo que hacer para que me direccione bien la segunda pantalla ? . Yo no encuentro donde puede estar el fallo. Agradecería soluciones. Gracias.

En la segunda pantallita donde pone DlgAbrir.InitDir = pathDirListasNuevas he puesto mal y tendría que ser DlgAbrir.InitDir = "C:\Carpeta2"

(para que no haya confusión)