Dim arraynummer As Integer
        Dim cijfers() As String


        If Cijferbox.TextLength < 4 Or Letterbox.TextLength < 2 Then
            MsgBox("Er moeten 4 cijfers en 2 letters worden ingevuld")
            latenstaan = True
        Else
            Letters = Letterbox.Text
            Letters.ToUpper()
            postcode = Cijferbox.Text & " " & Letters
            Lijst1.Items.Add(postcode)
            Cijferbox.Text = ""
            Letterbox.Text = ""
            latenstaan = False

            If Lijst1.Text = "" Then
                arraynummer = 1
            End If

            cijfers(arraynummer) = 1

            Array.Sort(cijfers)

            For arraynummer = 0 To cijfers.Length - 1
                Lijst2.Items.Add(cijfers(arraynummer))
            Next arraynummer

            Cijferbox.Text = "0000"
            Letterbox.Text = "ZZ"


            arraynummer = arraynummer + 1

        End If