Dim tf As TextFormatter
tf.Initialize(Me, "Numeric", txtrange1)
'And This work
........
........
Sub txtrange1_FocusChanged (HasFocus As Boolean)
If HasFocus = False Then
Dim txt As TextField = Sender
Dim d As Double = txt.Text.Replace(DecimalSeparator, ".")
txt.Text = NumberFormat2(d, 1, 3, 3, False).Replace(".", DecimalSeparator)
End If
End Sub