[Resolvido]Numero de Notas

ola Pessoal

consegui ler o código de barra de uma nota danfe (4319 0492 6656 1100 0177 5500 1000 7006 0511 6231 4817)
e pegar o numero numa caixa de texto exemplo [700605] esse é numero da nota

mas eu gostaria de ler varias notas tipo 5 ou mais notas e fica-se assim no campo

700605-700606-700607-700608 e assim por diante no mesmo campo

usei esse codigo

Dim NNota As String

NNota = Me.NCodigo

Me.txtEsquerda = Left(NNota, 28)
Me.txtDireita = Right(NNota, 10)
Me.txtNumeroNota = Mid(NNota, 29, 6)

txtnumeronota é caixa de texto

crie uma variável para ir concatenando casa cada vez que ler um codigo

Veja o anexo

Bom dia msilveir,

Se o código de barras tem sempre o mesmo formato e número de caracteres,
no campo NCodigo após atualizar coloque o seguinte código:

Código:

If IsNull(txtnumeronota) Or txtnumeronota = "" Or txtnumeronota = Empty Then
Me.txtnumeronota = Replace(Left(Right(NCodigo, 19), 7), " ", "")
Else
Me.txtnumeronota = Me.txtnumeronota & "-" & Replace(Left(Right(NCodigo, 19), 7), " ", "")
End If

Abraço

ola pessoal

as duas dicas funcionarão muito bem
obrigado a todos