Ciao a tutti,

Sto cercando di formattare il contenuto di una TextBox in modo tale da aggiungere "." e "," sull'evento Change ovvero mentre l'utente scrive il prezzo di vendita di un prodotto.

la procedura su cui sto lavorando è la seguente:
'************************************************* ***********
Private Sub txt_prezzo_vendita_Change()
Dim Prezzo As Currency
Dim Prezzoformattato As Currency

If Trim(Me.txt_prezzo_vendita) <> "" And Not IsNull(Trim(Me.txt_prezzo_vendita)) Then
Prezzo = txt_prezzo_vendita.Text
txt_prezzo_vendita.Text = FormatNumber(Prezzo, 2)
End If

End Sub
'************************************************* *************

Il problema è che ogni qualvolta la funzione FormNumber aggiunge il "." il pront di scrittura della casella di testo appare all'inizio e non nella posizione seguente al carattere appena digitato, dando origine in questo modo a una sequenza di caratteri assurdi.

La procedura funziona bene invece sull'evanto "Validate"