Probabilmente basta modificare la For così, evitando anche l'else ...

codice:
...
        For t = 0 To File1.Items.Count-1
            If File1.Items.Item(t) = nome Then
                l = False
                Exit For
            End If
       Next t
...