è una provocazione??
cmq, si. considerala versione 1.0 appena ho 5 di tempo in piu ti passo la versione definitiva. ovvero domani. ce la fai ad aspettare?
ovviamente se ti piace

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Asc(",") = KeyAscii Then
KeyAscii = 0
Text2.Text = Format(Text2.Text, "#,###.##")
Text2.SelStart = Len(Text2.Text)
Else
If InStr(1, Text2.Text, ",") = 0 Then
Text2.SelText = Chr(KeyAscii)
Text2.Text = Format(Text2.Text, "#,###")
Text2.SelStart = Len(Text2.Text)
KeyAscii = 0
Else
Text2.SelText = Chr(KeyAscii)
Text2.Text = Format(Text2.Text, "#,###.##")
Text2.SelStart = Len(Text2.Text)
KeyAscii = 0
End If
End If
end sub

fammi sapere
Zoran.