hola viejo jaja yo lo estoy haciendo pero nose cual es la sintaxis del codigo verificado algo me acuerdo
parece q se suman todos y se divedien pero no estoy seguro
pero te mando el codigo para dividir los numero
Dim R8, R7, R6, R5, R4, R3, R2, R1, NUM As Currency
NUM = Int(Text2.Text)
R8 = Int(NUM / 10000000)
NUM = Int(NUM Mod 10000000)
R7 = Int(NUM / 1000000)
NUM = Int(NUM Mod 1000000)
R6 = Int(NUM / 100000)
NUM = Int(NUM Mod 100000)
R5 = Int(NUM / 10000)
NUM = Int(NUM Mod 10000)
R4 = Int(NUM / 1000)
NUM = Int(NUM Mod 1000)
R3 = Int(NUM / 100)
NUM = Int(NUM Mod 100)
R2 = Int(NUM / 10)
NUM = Int(NUM Mod 10)
R1 = Int(NUM / 1)
MsgBox R8 & "-" & R7 & "-" & R6 & "-" & R5 & "-" & R4 & "-" & R3 & "-" & R2 & "-" & R1
esta en visual oka. a penas lo encuentre te lo mando