<sees thread has reached five pages>
<opens thread, scrolls quickly, sees same bullshit>
<posts this, closes thread>
Here is the code you should have used
Sub ManageMessageThreads()
Dim threads As Collection
Set threads = New Collection
Dim threadTitle As String
Dim threadContent As String
Dim i As Long
' Simulating opening a thread
threadTitle = "Discussion on Topics"
threadContent = "Bhanks"
threads.Add Array(threadTitle, threadContent)
Debug.Print "Thread '" & threadTitle & "' opened."
' Checking content for unwanted discussion
If InStr(threadContent, "Bhanks") > 0 Then
Debug.Print "Thread contains unwanted content about Bhanks."
' Closing the thread
For i = threads.Count To 1 Step -1
If threads(i)(0) = threadTitle Then
threads.Remove i
Debug.Print "Thread '" & threadTitle & "' closed."
End If
Next i
End If
' Logging off
Debug.Print "Logging off message board."
Set threads = Nothing
End Sub
