if Use this code below.

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
SendKeys vbBack
End If
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
Text1.Text = Format(Text1.Text, "#.#0")
End Sub


This code doesn't get what I want to happen..

All I want is everytime I enter a number, the text of Text1 is formatted to "#.#0"

WHat code should I write?