Private Sub txtspannung_KeyPress(Index As Integer, KeyAscii As Integer) 
  Select Case KeyAscii 
    Case 48 To 57 <font color=green>' hier wird definiert, welche Zeichen 
    ' zugelassen sind</font>
    Case Else 
      KeyAscii = 0 
  End Select 
End Sub