Как заменять запятаю на точку во время ввода?

[wertill@]

Помогите! Мне необходимо при задании чисел в текстовое окно заменять точки на запятые. У меня есть идеи по этому поводу
Private Sub Text1_Change()
Dim i As Integer
Dim KeyAscii As Integer
For i = 1 To Len(Text1.Text)
KeyAscii = Asc(Mid(Text1.Text, i, 1))
If KeyAscii = 46 Then
Text1.Text = Left(Text1.Text, i - 1) & Chr(44) & Right(Text1.Text, Len(Text1.Text) - i)
Exit Sub
End If
Next
End sub
, однако при замене точки на запятую курсор становится в начало строки и это неудобно, так как необходимо дальше вводить число. Подскажите как с этим справиться. А мож кто знает способ лучше? Заранее благодарен!

Код: Выделить всё