Regel van ListBox niet toevoegen

[VBAbeginner]

ik werk met een listbox waar je cijfers van leerlingen kunt toevoegen. De cijfers die je invoert moeten tussen de 10 en 100 zijn. Als ik dan bijvoorbeeld 2 invoer, dan krijg je een melding dat het cijfer alleen tussen de 10 en 100 mag zijn alleen voegt ie de regel wel gewoon in de listbox terwijl ik dat niet wil. Weet iemand hoe ik dat kan oplossen?

Dit is een stukje van mijn code:

Nr = Lijst(i, 0)
Naam = Lijst(i, 1)
Opdracht1 = Lijst(i, 2)
Opdracht2 = Lijst(i, 3)
Opdracht3 = Lijst(i, 4)
Toets1 = Lijst(i, 5)
Toets2 = Lijst(i, 6)

Private Sub VoegtoeKnop_Click()

For i = 1 To 20
If Lijst(i, 0) <> "" Then Nr = i + 1
Next i
If Nr = 21 Then
MsgBox ("De lijst is vol")
Close #1
Exit Sub
End If

Lijst(Nr, 0) = Nr
Lijst(Nr, 1) = NaamVeld.Text
Lijst(Nr, 2) = Opdracht1Veld.Text
Lijst(Nr, 3) = Opdracht2Veld.Text
Lijst(Nr, 4) = Opdracht3Veld.Text
Lijst(Nr, 5) = Toets1Veld.Text
Lijst(Nr, 6) = Toets2Veld.Text
Write #1, Lijst(Nr, 0), Lijst(Nr, 1), Lijst(Nr, 2), Lijst(Nr, 3), Lijst(Nr, 4), Lijst(Nr, 5), Lijst(Nr, 6)
Close #1

If cijfer < 10 Then
Lijst(i, 0) = ""
Lijst(i, 1) = ""
Lijst(i, 2) = ""
Lijst(i, 3) = ""
Lijst(i, 4) = ""
Lijst(i, 5) = ""
Lijst(i, 6) = ""
End If
ListBox1.List() = Lijst
End Sub

 

[VBAbeginner]

Opgelost

 

[dprod]

Graag ook de oplossing posten zodat anderen hier eventueel wat van op kunnen steken.
Altijd fijn om werkende code's te zien!
Misschien kan deze zelfs door iemand efficienter worden geschreven, en heb je er zelf ook nog baat bij!

Het gebruik van de # CODE tag is ook aan te raden...

Gr,
dprod