[Resolvido]Atualizar valor de uma variável

Não sei se a forma que estou fazendo este procedimento, exista uma solução.
tenho uma variável "b" que inicia com o valor 1, a partir do segundo for ela termina com o valor da variável n
ai o que acontece é que  preciso fazer com a variável b seja atualizada a sua contagem inicial.
não sei se tem como fazer isso, já procurei e não achei, ou não soube procurar com as palavras certas.
o que busco fazer com esta função é o seguinte: Quero pegar dados de um campo que estão conforme formatação a baixo
e dividi-los para inserir em seus campos corretos para alteração.

str = campo1: dados1 | campo2: dados2 |campo3: dados3 | >>> se possível queria vê tbm uma forma de não precisar incluir esta ultima barra na formatação
na função seleciono os dados que encontram-se entre ":" e "|".

desde já agradeço

Public Function banco(str As String)

Dim m As Integer
Dim n As Integer
Dim b As Integer
Dim y As Integer
Dim charM As String
Dim charN As String
Dim valorString As String

Rgoto:
Recalc
b = 1
For i = b To Len(str)
m = i
charM = Mid(str, i, 1)
MsgBox "charM = " & charM, vbOKOnly
   
   If charM = ":" Then
           m = m + 1
       For y = m To Len(str)
           n = y
           charN = Mid(str, y, 1)
           MsgBox "y = " & y & " n = " & n & " charN = " & charN, vbOKOnly
           
           If charN = "|" Then
           n = n - m
           valorString = Mid(str, m + 1, n - 1)
           MsgBox "Valor Variavél é " & valorString, vbOKOnly
           n = n + m
           b = n
           GoTo Rgoto
           End If
           
       Next
   End If
Next

End Function

Olá Paulo, teste assim:

Public Function banco(str As String)

Dim m As Integer
Dim n As Integer
Dim b As Integer
Dim y As Integer
Dim charM As String
Dim charN As String
Dim valorString As String

Rgoto:
Recalc
b = 1
For i = b To Len(str)
m = i
charM = Mid(str, i, 1)
MsgBox "charM = " & charM, vbOKOnly

If charM = ":" Then
m = m + 1
For y = m To Len(str)
n = y
charN = Mid(str, y, 1)
MsgBox "y = " & y & " n = " & n & " charN = " & charN, vbOKOnly

If charN = "|" Then
n = n - m
valorString = Mid(str, m + 1, n - 1)
MsgBox "Valor Variavél é " & valorString, vbOKOnly
n = n + m
b = n
GoTo Rgoto
End If
'-----
b=1
'-----

Next
End If
Next

End Function


Abraço

Como é bom conhecer o terreno que pisa, passei horas esmagando o tico e teco fazendo aquela função, que até funcionou
em parte, mas valeu o aprendizado dos loops e condições, mas Silvio você foi simplesmente genial com a função split(),
vou precisar demais desta função na minha aplicação. muito obrigado a você e ahteixeira.

mas só para critério de conhecimento e aprendizado na função que passei há possibilidade de fazer
o que estava querendo, simplifiquei e comentei o código para melhor entendimento
str = "campo1: Avelino | campo2: Pedro |campo3: João |"
Rgoto:
b = 1 aqui inicia em 1
For i = b To Len(str)
m = i
For y = m To Len(str)
If charN = "|" Then
n = n + m
b = n ' aqui coloquei b = n, onde n neste primeiro ciclo de string é 20
GoTo Rgoto ' sai do loop para volta ao inicio, só que queria onde b = 1 ficasse b=20, ou seja, nas segunda passagem do loop inicial a contagem inicial b=20
' como b é sempre igual a 1 fica um loop infinito retorando sempre avelino
End If
'-----
b=1
'-----

Next
End If
Next

End Function

meu problema foi resolvido com a função split(), coloquei ai mesmo só questão de aprendizado, se tem como transferir o valor da variável no final do loop
para o valor inicial da variável.

mas uma vez muito obrigado obrigado

Olá Paulo Costa,
Obrigado pelo retorno.

Repare que não foi o nosso colega Silvio, mas sim o grande guru   e coelga Avelino Sampaio, que nos tem presentiado com excelente informação sobre o Access.
Não sei se conhece, mas veja o website que tem: http://usandoaccess.com.br

Não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Opá perdão Mestre Avelino Sampaio, como falei passei horas esmagando o tico e teco, já estou lendo uma coisa e escrevendo outra
Muito Obrigado

ahteixeira obrigado pela dica vai ser muito útil,
Não coloquei resolvido, por que queria muito mesmo
saber se o que questionei no tópico anterior é possível ou não e como.

Olá, me desculpe não reparei.

Tera que fazer algo assim:

Código:

Dim contador
contador = 0
'ou caso pretenda consultar o ultimo, pode usar Dlookup ...
' ficando
' contador Dlookup ...


'inicio ou final de rotina de contagem
contador = contador + 1



Caso tenha dúvidas, poste como tem e mais detalhes de como pretende.
Abraço

muito obrigado
Vou da uma estuda no que me passou e depois posto aqui

Olá Paulo Costa,
A minha ultima mensagem foi no telemovel, um pouco À pressa.

Veja no link abaixo na mensagem nº 4 um exemplo de contador ( linha = linha + 1 ) :
www.maximoaccess.com/t24141-resolvidoimportar-varios-ficheiros-txt-para-uma-so-tabela-adicionando-o-nome-do-ficheiro-a-um-campo
Acho que será mais fácil para compreender.
Abraço