Private Sub textfeldtxt_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles textfeldtxt.KeyPress
        If Not IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub