Visual Basic - Convertir 12345 a 12.345,00

Dim Numeros As String

Dim NumerosyComas As String

Numeros = Left(Text3, 2)

NumerosyComas = Numeros & \".\"

Numeros = Right(Text3, 3)

NumerosyComas = NumerosyComas & Numeros & \",00\"

Text3 = NumerosyComas

NumerosyComas = Numeros & \".\"

NumerosyComas = NumerosyComas & Numeros & \",00\"

Private Sub Command1_Click()

Dim numero As Double

numero = Text1

Text1 = Format(numero, "##,###.00")

End Sub

Dim DecimalPoint As Boolean

'Para cada Text box númerico:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

DecimalPoint = (KeyCode = vbKeyDecimal)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If DecimalPoint Then

KeyAscii = Asc(Mid(Format(0, "0.0"), 2))

End If

End Sub

Private Sub Text1_LostFocus()

Dim numero As Double

numero = Text1

Text1 = Format(numero, "##,###.00")

End Sub