[Resolvido]Converter cadeia de caracteres em array.

Saudações à todos os colegas do forum.

Bom, hoje me deparei com um problema que pensei ser simples mas já me custou todo o dia e ainda não obtive um resultado satisfatório.

Preciso validar determinados códigos que estão em um campo de uma tabela, tipo texto.

Exemplo: 987654147456 ou seja todos com 12 dígitos, para fazer a validação preciso enviá-los para uma matriz.

assim:

varN(0) = 9
varN(1) = 8
varN(2) = 7
varN(3) = 6
varN(4) = 5
varN(5) = 4

e sucessivamente.

já tentei todas as formas e funções que eu conheço e não obtive exito.
Então pergunto aos nobres colegas se alguém já enfrentou este mesmo problema e se conseguiram uma solução?
Desde já agradeço pela atenção

Código:

dim arrMinhaMatriz() 'criando variável matriz
dim bytContador as byte 'contador auxiliar

redim arrMinhaMatriz(len(cstr(CampoTal)) - 1) 'definindo a quantidade de elementos da matriz de acordo com o tamanho do campo

'contador vai do primeiro elemento da matriz até o último
for bytContador = LBound(arrMinhaMatriz) to UBound(arrMinhaMatriz)

   'cada posição da matriz vai recebendo o valor do campo
   arrMinhaMatriz(bytContador) = mid(cstr(CampoTal), bytContador + 1, 1)

'vai para a próxima unidade do contador
next bytContador

'tchã rã... a partir daqui sua matriz carregada


Ivam, muito obrigado! seu código funcionou perfeitamente.

Fiquem bem e até mas.

Sendo assim dou o tópico como resolvido

se tiverem alguma dúvida reabram o tópico

O fórum agradece o retorno. Sucesso.