i = UBound(Cijferrij)
                ReDim Preserve Cijferrij(0 To (i + 1)) As Single
                Cijferrij(i + 1) = lbl_nummer.Caption





        Dim aantal As Integer
        aantal = UBound(Cijferrij)
        For j = 1 To aantal
           check = Cijferrij(j)
            If check = lbl_nummer.Caption Then
                opnieuw = 1
            End If
        Next