[Resolvido]Capturar posição da String.

Boa noite,

Meu BD temo uma tabela chamada (tblCedocFichaMV) com o campo: Campo12, tipo texto, que possui os registros abaixo.


166927 WEMERSON FLAVIO
325856 ANGELA FREDERICH
303278 LUCIANO CAMPOS
3253 SHEILA CORREA
166574 CYNTHIA MARIA
321 GUILHERME SANTOS
30151 ESTERLINA COSTA

Estou usando o código abaixo para tentar capturar tudo que está antes do primeiro espaço de cada linha.

Alguem tem uma sugestão para indicar, porque no código abaixo eu somente localizo até o sexto caracter. Porém, nem sempre o espaço tem uma posição fixa.

On Error Resume Next
Dim nEspaco As String
Dim strTexto As String
Dim intPos As String
nEspaco = Campo12
intPos = InStr(nEspaco, " ") 'Localiza a string a partir do primeiro caracter
'strTexto = right(Mid(nEspaco, 6, 100), 100) 'Remove a string à esquerda do simbolo
'strTexto = left(Mid(nEspaco, 1, 6), 6) 'Remove a string à direita do simbolo

Olá Gomes,

Teste alterando as ultimas duas linhas do código postado:

strTextoESQ = Left(nEspaco, intPos - 1) 'Esquerda do espaço
strTextoDIR = Right(nEspaco, Len(nEspaco) - intPos) 'Direita do espaço

Abraço

Prezado ahteixeira e Avelino,

Ambas as dicas me ajudaram.

irei adaptar a segunda opção, pois precisarei obter os caracteres antes e depois da primeira virgula numa variavel. para depois lançar a variavel em uma consulta acrescimo.

Grato,

Olá
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço