instr help [resolved]

[ice_531]

' still workin on this function :(
Private Function CheckmyList()
Dim i As Integer
Dim mystr As String
mystr = Text6
For i = 0 To List1.ListCount - 1
If InStr(mystr, List1.List(i)) Then
SEND "The command has been sent, " & mystr & "!"
Else
SEND "Sorry, " & mystr & " but you do not have access!"
End If
Next
End Function

well i have a listbox and im searching thru it.... now see if mystr is in the listbox then it will send "the command has been send" ...this part worx.. but it never sends the "sorry u dont have access" part .. even when mystr isnt in the list

what did i do wrong?