Convertir numero a texto en textbox

[jeladio]

Hola amigos: Tengo este código que convierte a texto el contenido numérico de la celda A2 en la celda A1, y todo funciona bien el problema es que deseo hacer lo mismo pero dentro del textbox1 ubicado en un formulario que esta en el ejemplo y no logro hacerlo hay alguna manera de hacerlo. adjunto ejemplo.

saludos

numeros a letras.rar

[Carlosw777]

Private Sub CommandButton1_Click()

    number = CDbl(TextBox1.Text)

    dec = Round(number - Int(number), 2) * 100

    TextBox2.Text = NumLetra(Int(number), , , , , , , 2) + " con " + Str(dec) + "/100 Quetzales"

End Sub[/CODE]

Aquí hay más ejemplos de userform en excel

www.excel-avanzado.com/userform-en-excel

numeros a letras.zip