Como faço para desmembrar um numero nas variaveis.

 

Dim Unid As String
Dim Dez As String
Dim cent As String
Dim Milh As String

Numero = 1234

Unid = 4

Dez = 3

Cent = 2

Milh = 1

 

Sabe como façõ isso?

sim... vc vai fazer uma divisão inteira, pega o resto depois faz a mesma coisa...

O site não mostra mas vou usar a barra invertida q é o contrário desta!! => "/"

 

A barra invertida é para fazer divisões de modo q trunque o resultado... exemplo:

1 / 3 =  0,333333333333333

 

Se colocar a barra invertida o resultado é 0

 

Então vamos ao código:

 

 

Dim Unid As Byte
Dim Dez As Byte
Dim Cent As Byte
Dim Milh As Integer
Dim Numero As Long

 

Numero = 1234

 

Milh = Numero  1000 'divisão com resultado truncado
Numero = Numero Mod 1000 'resto da divisão

 

Cent = Numero  100
Numero = Numero Mod 100 'resto da divisão

 

Dez = Numero  10
Numero = Numero Mod 10 'resto da divisão

 

Unid = Numero

 

MsgBox "milhar: " & Milh & vbNewLine & _
        "Centena: " & Cent & vbNewLine & _
        "Dezena: " & Dez & vbNewLine & _
        "Unidade: " & Unid

Lembrando novamente q a barra não vai aparecer por exemplo na expressão:

 

 

No espaço vazio vai a barra invertida...

 

qq dúvida é só postar

 

at+

Consegui entender sua dica, mas queria usando os comando Len ou Left, eu não sei como faço isso.

Neste caso você pode usar o Mid.

 

numero = 1234
Unid = Mid(numero, 4, 1)
Dez = Mid(numero, 3, 1)
Cent = Mid(numero, 2, 1)
Milh = Mid(numero, 1, 1)

 

É algo assim que você esta querendo?

 

 

 

 

é isso mesmo agora deu certo, muito obrigado!