fnt = ListBox1.Font
        Dim prijs As String
        Dim nieuw As String
        Dim max, min As Decimal
        Try
            max = txtmax.Text
            min = txtmin.Text
        Catch
        End Try

        nieuw = InputBox("iets toevoegen?", " voeg iets toe ")
        prijs = InputBox("een prijs ingeven? ", "geef een prijs op ")

        'If nieuw = IsNumeric(nieuw) Then
        'MessageBox.Show("geen getal als begin letter", " je eerste plaats moet een letter zijn ")
        ' End If

        Try
            If max < prijs Or min > prijs Then
                prijs = " "
            End If
        Catch
        End Try
        ListBox1.Items.Add(nieuw & "    " & prijs)