Bueno, antes de anda agradeceros a todos el interés, el ultimo ejemplo también me dio fallo, lo he solucionado de esta forma:
Código:
TextBox2.Text = FormatCurrency(CInt(TextBox2.Text), 2)
Ahora devuelve tantos decimales como numeros indique al final de la instrucción.
Muchisimas gracias a todos compañeros !
Saludos.