Insertar un numero de ceros determinado a la derecha

[paiwoked]

Buenas tengo el siguiente codigo:

Private Sub CommandButton9_Click()


Dim carac As String


carac = ActiveSheet.Range("G5").Value


ActiveSheet.Range("c14").Value = Len(carac)


ActiveSheet.Range("c15").Value = Left(carac, 1)



End Sub


[/CODE]

Con este codigo en la celda C14 obtengo el numero de caracteres de la celda G5 y el la celda C15 obtengo el primer caracter de la celda G5.

Si en la celda G5 el valor es 845, tendre en la celda C14 el valor de 3 y en la celda C15 el valor 8, lo que quiero es con codigo que emplee el valor de la celda C15 (es decir el 8) y le añada tantos ceros como el valor de la celda C14 (es decir 3). Con este valor tendria un resultado de "8000", pero si en la celda G5 el valor fuera 8450 Tendria un valor de "80000"

En resumen necesito añadirle a el valor de C15, tantos ceros a la derecha como ponga en el valor de C14.

Algun consejo??

[Armando Montes]

Intenta multiplicando por 1000