Ist hier irgendein Code:
Privates Unterseeboot TextBox1_KeyPress (ByVal KeyAscii als MSForms.ReturnInteger)
Fall KeyAscii vorwählen
Asc („0“) zu Asc („9“) umkleiden
Asc umkleiden („-“)
Wenn Instr (1, Me.TextBox1.Text, „-“) > 0 oder Me.TextBox1.SelStart > 0 dann
KeyAscii = 0
Beenden wenn
Asc umkleiden („.")
Wenn InStr (1, Me.TextBox1.Text, „.") > 0 dann
KeyAscii = 0
Beenden wenn
Sonst umkleiden
KeyAscii = 0
Ende auserwählt
Enden-Unterseeboot
von hier: http://www.cpearson.com/excel/TextBox.htm