[Resolvido]Limitar caracteres importado do arquivo txt

boa tarde ao fórum. Com as dúvidas dos amigos já resolvi muita coisa mas dessa vez, mesmo como muita pesquisa, tive que abrir o tópico.
tenho um arquivo txt que contém vários registros em linhas exemplo:
00009373635555555333333 Marcelo   veronica045045405845485848584854854858
...............................
.................................
sei que do caractere 1 até 6 tem um significado...do caractere 7 até 11 outro e assim por diante.
faço a importação do arquivo txt para a tabela, ficando esses dados armazenados em um único campo. são milhares de registro. até aí tudo bem.  porém gostaria de extrair para um campo não acoplado esses caractere de forma dividida para cada campo não acoplado do formulário pois sei quando começa e termina uma informação.  então ficaria me.texto0.value 1 ate 6 caracter;  me.texto1.value 7 ate 11 caracter;  me.texto2.value 11 ate 20 caracter e assim por diante....
já pesquisei o tópico: https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo
mas notei que o txt de importação é diferente do meu txt... Mas se o caminho do meu caso for o tópico acima só responder que sim e irei quebrar a cabeça....

eu faria..... me.texto5.value = Left(me.texto5.value, 6) isso para primeiro campo não acoplado. Porém como faria para os demais campos a partir de 6 caractere????

Olá vagner morais, bem vindo ao fórum.
Estou no celular, mas o que pretende resolve com a função MID nativa do Access.
Efetue uma busca.
Abraço

olá Mestre, achei algo através da busca google MID

https://support.office.com/pt-br/article/Fun%C3%A7%C3%A3o-Mid-427e6895-822c-44ee-b34a-564a28f2532c

ficou assim:

Private Sub Form_Load()
Dim MyString, FirstWord, LastWord, MidWords
MyString = Me!F1.Value ' Crie uma cadeia de texto.
FirstWord = Mid(MyString, 1, 6) ' Retorna "Mid".
LastWord = Mid(MyString, 7, 11) ' Retorna "Demo".
MidWords = Mid(MyString, 15, 20) ' Retorna "Function Demo".
Me.Texto5.Value = FirstWord
Me.Texto7.Value = LastWord
Me.Texto9.Value = MidWords
End Sub

funcionou perfeitamente, agora só ajustar as coisas em situações anterior e posterior e etc.
Obrigado pela dica.

Ola, fico feliz por ter ajudado.
Obrigado pelo retorno.

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

Abraço

Resolvido!!