Multiplicar uno a uno digitos de un string

Rive08
23 de Mayo del 2006
Cómo puedo hacer, teniendo 2 string, para multiplicar sus valores uno a uno?
Ej: a = 12345
b = 67890

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

mvallejos
23 de Mayo del 2006
Facil, recorriendo los dos string usando la funcion Mid

Dim Total as Long
Dim A As String
Dim B As String
Dim i as Integer,Nro1 as Integer,Nro2 as Integer

A = "12345"
B = "67890"

For i = 1 To Len( A )
Nro1 = Val(Mid(A,I,1))
Nro2 = Val(Mid(B,I,1))
Total = Total * (nro1 * nro2)
Next i

Saludos

PD : realmente podrías haberla pensado un poco.