Tenho um campo no bd com uma sequencia de numeros, exatamente 11 caracteres, como fazer para colocar um a um em uma variável ?

 

Ex.: 00000000001

varA=0, varB=0, varC=0..., var11=1

 

Alguém pode me ajudar ?

 

 

Obrigado

 

olha em uma variável fica difícil, mas em uma matriz dá sim:

dim numeros(1 to 11)

tuavariavelcomnumeros = "00000000001"

for i% = 1 to 11

    numeros(i%) = mid(tuavariavelcomnumeros,i%,1)

next i%

 

Kerplunk, mas eu preciso de cada digito em uma variável, como vou fazer ?

Kerplunk, consegui chegar em um resultado esperado, bem não é o meio mais simples ou certo mas acho que resolve. Fiz o seguinte:

 

Dim tuavariavelcomnumeros As String
tuavariavelcomnumeros = "00000000001"
   
For i% = 1 To 11
    numeros(i%) = Mid(tuavariavelcomnumeros, i%, 1)
    If i% = 1 Then
        varA = numeros(i%)
    ElseIf i% = 2 Then
        varB = numeros(i%)
    ElseIf i% = 3 Then
        varC = numeros(i%)
    ElseIf i% = 4 Then
        varD = numeros(i%)
    ElseIf i% = 5 Then
        varE = numeros(i%)
    ElseIf i% = 6 Then
        varF = numeros(i%)
    ElseIf i% = 7 Then
        varG = numeros(i%)
    ElseIf i% = 8 Then
        varH = numeros(i%)
    ElseIf i% = 9 Then
        varI = numeros(i%)
    ElseIf i% = 10 Then
        varJ = numeros(i%)
    ElseIf i% = 11 Then
        varL = numeros(i%)
    End If
Next i%

 

Obrigado pela ajuda...

bom, pode ser assim tb, mas a vantagem de se trabalhar com uma matriz é o pouco uso de memória comparado com 11 variáveis integer.