text format

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?

Try this...

VB Code:

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
SendKeys vbBack
Exit Sub
End If
Text1 = Format(Text1, "#.#0")
End Sub

If you like you can click the NumberBox link in my signature. That will direct you to code for a NumberBox control that you can use in your project(s). It is like a normal textbox except that it accepts only numbers (including decimal point and minus sign) with the addition of properties that allow you to set the maximum number of decimals and if negatives are allowed.