Hi, does this seem like a decent shitlist to you?

Private Sub Event_Join()
Do

Close #1
Open (App.Path & "\Files\Shitlist.txt") For Input As #1
Dim Shit As String
Do
Input #1, Shit
If LCase(strUser) Like LCase(Shit) Then
SendChat "/ban " & strUser & " Shitlisted:~:Tuna.Bot"
pbuffer.Clear
Close #1
Exit Sub
End If
Loop Until EOF(1)
Close #1

Pause (2500)
Loop

EndSub

If it works and it works fairly decent its good enuff

Thanks

It seems that code will loop infinitely if the user is not shitlisted.. why nest the input Do...Loop within another one that has no conditions?