[VB08]'I' Non dichiarato

[GhostFire]

Ciao,non riesco a capire perchè il compilatore mi dice "I non dichiarato" eppure nel codice mi sembra di aver dichiarato tutto:

    Function ListIsIn(ByVal lst As ListBox, ByVal zString As String) As Boolean
        On Error Resume Next
        For i = 0 To lst.Items.Count
            If lst.Items(i) = zString Then ListIsIn = True : GoTo grr
        Next i
        ListIsIn = False
        MsgBox("nope", vbOKOnly)
        Exit Function
grr:
        lst.SelectedIndex = (i) 'quì da l'errore

    End Function

L'errore preciso è questo:

Error 1 Name 'i' is not declared.