Array - hvordan

Compile Error:

Sub or function not defined

________________________________________________________
Private Sub Form_Load()
Dim Kass(6) As Integer
Dim Lort As Integer
For i = 0 To 6
    Kass(i) = 0
Next
End Sub

Private Sub CMD_Kast_Click()
For i = 1 To TXT_Antal_Terninger
   
    For j = 1 To TXT_Antal_Kast
        Lort = Int((6 * Rnd) + 1)
        Kass(Lort) = (Kass(Lort) + 1) ' Her er fejlen
        Tilføj Int(Lort)
    Next

Next
End Sub

Jeg skal tilføje 1 til den possision i Kass arrayet, som findes med Rnd, men det virker ikke

Hvordan skal jeg bruge arrayet