Deleting Item From TXT File Based On ListBox Content

I am trying to delete an item from a text file based on if an item appears in a listbox but keep getting an error " Index was out of range. Must be non-negative and less than the size of the collection." The line it is returning the error on is the the first IF statement of the below text.

Code:
Dim Lines As new List(Of String) (IO.File.ReadAllLines("Carl.txt"))
For i As Integer = 0 To Lines.Count -1
If Lines(i).Contains (listBox1.text) Then
Lines.RemoveAt(i)
End If
Next
IO.File.WriteAllLines("carl.txt", Lines.ToArray)
End If