Can Somebody Fix my Code ( Filter Listview )

[soeppp]

I create a filter to search a text from listview
but it show a error message Like this

{"Index and length must refer to a location within the string. Parameter name: length"}

HERE IS MY CODE

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ListView1.SelectedItems.Clear()

        For ix As Integer = 0 To ListView1.Items.Count - 1
            Dim ls As String = ListView1.Items(ix).Text
            If String.Compare(ls.Substring(0, TextBox1.Text.Length), TextBox1.Text, True) = 0 Then
                ListView1.Items(ix).Selected = True
                ListView1.Items(ix).EnsureVisible()
                Exit For
            End If
        Next ix
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With ListView1
            .Columns.Add("Abadaba", 70)
            .View = View.Details
            .HideSelection = False
            .Items.Add("ABC")
            .Items.Add("ABD")
            .Items.Add("ACD")
            .Items.Add("BCD")
            .Items.Add("BDE")
            .Items.Add("TEST01")
            .Items.Add("TEST02")
            .Items.Add("TEST03")
        End With
    End Sub
End Class