<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Text1_KeyPress(KeyAscii <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=green>' Nur Zahlen und Punkt zulassen</font>
  <font color=green>' (Komma autom. in Punkt umwandeln)</font>
 
  <font color=#000099>Select</font> <font color=#000099>Case</font> KeyAscii
    <font color=#000099>Case</font> 48 <font color=#000099>To</font> 57, 8, 32
    <font color=#000099>Case</font> 44, 46
      KeyAscii = 46
      <font color=#000099>If</font> InStr(Text1.Text, ".") > 0 <font _
        color=#000099>Then</font> KeyAscii = 0
    <font color=#000099>Case</font> <font color=#000099>Else</font>
      KeyAscii = 0
  <font color=#000099>End</font> <font color=#000099>Select</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>