Är här något kodifierar:
Privat Sub TextBox1_KeyPress (ByVal KeyAscii som MSForms.ReturnInteger)
Välj fallet KeyAscii
Case Asc (”0”) till Asc (”9”)
Case Asc (”-”)
Om Instr (1, Me.TextBox1.Text, ”-”) > 0 eller Me.TextBox1.SelStart > 0 därefter
KeyAscii = 0
Avsluta om
Case Asc (”. ”)
Om InStr (1, Me.TextBox1.Text, ”. ”) > 0 därefter
KeyAscii = 0
Avsluta om
Case annars
KeyAscii = 0
Avsluta valt
Avsluta suben
härifrån: http://www.cpearson.com/excel/TextBox.htm