dim i as integer
dim cpf as string
dim cpfbyte() as Byte 'usando Byte porque acho que nao precisa usar uma String
'aprendi que quanto menor o valor, menos memoria se exige do sistema...
cpf="98765432100"
for i =1 to len(cpf)
redim preserve cpfbyte(i)
cpfByte(i) = mid(cpf,i,1)
next
ae os valores de cada caractere do cpf dicaria assim:
cpfByte(1) = 9
cpfByte(2) = 8
cpfByte(3) = 7
.
.
.
cpfByte(9) = 0
entendeu???

espero ter contribuido.......