[Resolvido]Extrair dados de uma XML

Bom pessoal, estou tentando extrair dados de uma xml, onde a tag é   "" pois logo depois dessa tag pode ser um numero de 0 até 8.

pois bem eu consigo extrair o primeiro, porem quando aplico em um loop ele ó pega o primeiro sempre, o código é esse ai, ou existe alguma função com o objetivo de "Começa com"  

Dim a As Integer
Dim cont As Long ' contador
cont = 1 ' inicio com 1
DoCmd.GoToRecord , "", acFirst ' vai para o primeiro registro
       
For a = 1 To Me.Tot_Item Step 1
   
Dim ori As String
   
   ori = InStr(cont, Me.txt_Inf_Comp, "", vbTextCompare)
   ori = Mid(Me.txt_Inf_Comp, InStr(cont, Me.txt_Inf_Comp, "", vbTextCompare), 7)
   ori = Replace(ori, "", "")
   Me.Orig_XML = ORI
 
 cont = cont + 1
DoCmd.GoToRecord , , acNext
Next

já mexi de toda forma e o máximo que acontece é que ele 5 primeiras linhas ele, busca corretamente, já na sexta linha erre da o erro.

consegui o problema é que eu estava sempre consultando a masma cadeia de caracteres quando acrecentei +1 funcionol perfeitamente


0 codigo ficou correto assim

Dim a As Integer
Dim contador As Long ' contador
Dim saldoAs Long
Dim ori As String
contador = 1

saldo = 0


DoCmd.GoToRecord , "", acFirst ' vai para o primeiro registro
For a = 1 To Me.Tot_Item Step 1
' pega a origem do produto
ori = InStr(contador, Me.txt_Inf_Comp, "", vbTextCompare) ' ori xxx
saldo = ori + 1
ori = Mid(Me.txt_Inf_Comp, InStr(contador, Me.txt_Inf_Comp, "", vbTextCompare), 7)
ori = Replace(ori, "", "")
Me.Orig_XML = ori
contador = saldo ' aqui transporta o valor para sima para o proxima procura

Parabéns pelo avanço. O fórum agradece o retorno.