Importar XML a Access

Buenos dias asi he leido el xml:

VaRespuesta = "C:\FE\Resultados\" & TablaAux4![FacturaNo] & ".XML"
       
        'para generar el resultado
        strRuta = VaRespuesta
        LnPos1 = 0
        LnPos2 = 0
        LcCufe = 0
       
        '"con esto abres el archovo"
        Open strRuta For Input As #1

        '"y con esto lees linea por linea"
        Line Input #1, strLinea
        '"y finalmente con esto cierras el archivo"
        'Close #1

        '"y esto es para que leas el archivo de principio a fin, linea por linea"

        Do While Not EOF(1)
            Line Input #1, strLinea
            '"aqui podras extraer los datos de la linea leida"
            LnPos1 = InStr(1, strLinea, "<b:ZipKey>", vbBinaryCompare)
           
            If LnPos1 <> 0 Then
                LnPos2 = InStr(1, strLinea, "</b:ZipKey>")
                LcCufe = Mid$(strLinea, LnPos1 + 10, LnPos2 - LnPos1 - 10)
            End If
        Loop

        Close #1
 

gracias a todos por sus aportes podemos cerrar el hilo