Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs)
        Select Case Asc(e.KeyChar)
            Case 48
                If TextBox1.Text <> "0" Then
                    TextBox1.Text = TextBox1.Text & 0
                End If
            Case 49 To 57
                If TextBox1.Text <> "0" Then
                    TextBox1.Text = TextBox1.Text & e.KeyChar
                Else
                    TextBox1.Text = e.KeyChar
                End If
            Case 8
                If Len(TextBox1.Text) > 0 Then
                    TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - _
                      1)
                End If
            Case 27
                Me.Close()
            Case 13
                If TextBox1.Text = "" Then
                    TextBox1.Text = min
                ElseIf TextBox1.Text <= max And TextBox1.Text >= min Then
                    Wert = TextBox1.Text
                    Me.Close()
                ElseIf TextBox1.Text > max Then
                    TextBox1.Text = max
                Else
                    TextBox1.Text = min
                End If
            Case Else
                TextBox1.Text = TextBox1.Text
        End Select
    End Sub

mfg
rt