Sub txtField1_TextChanged (Old As String, New As String)
If New.Length = 1 And New.CharAt(0)="," Then
txtField1.Text=""
Else
If New.Length=0 Then
txtField1.Text=""
Else
If New.CharAt(New.Length-1)="," And Old.Contains(",")=True Then
New=co.Left(New,New.Length-1)
txtField1.Text = New
Else
If New.CharAt(New.Length-1)="," Then
New = New & "00"
If New.Length >10 Then New=co.Left(New,10)
txtField1.Text = New
Else
Dim sb As StringBuilder
sb.Initialize
For i = 0 To New.Length - 1
If "0123456789,".IndexOf(New.CharAt(i)) > -1 Then
sb.Append(New.CharAt(i))
End If
Next
txtField1.Text = sb.ToString
If txtField1.Text.Length>10 Then txtField1.Text=co.left(txtField1.Text,10)
txtField1.SetSelection(txtField1.Text.Length, txtField1.Text.Length)
End If
End If
End If
End If
If New.Length - Old.Length = 2 Then txtField1.SetSelection(txtField1.Text.Length-2, txtField1.Text.Length)
End Sub