Search in visual basic HELP!

Dim wordToSearch As String = txtSearch.Text.ToLower
Dim lines() As String = IO.File.ReadAllLines("c:\test.txt")
For x As integer = 0 To lines.length - 1
    Dim words() As string = lines(x).split(chr10)
    For y As integer = 0 To words.length - 1
        If words(y).length = wordToSearch.length Then
            Dim counter As integer = 0
            For z As integer = 0 To wordToSearch.length - 1
                If words(y).substring(z,1) = wordToSearch.substring(z,1) Then
                    counter += 1
                End If
                If counter > wordToSearch.length - 2
                    txtNew.Text += lines(x) + vbNewLine
                End If
            Next
        End If
    Next
Next

Dim wordsSearch() As String = txtSearch.Text.ToLower.Split(" ")
Dim lines() As String = IO.File.ReadAllLines("c:\test.txt")
Dim PointsArray(lines.Length - 1) As Integer
Dim wordToSearch As String

'Set all values to 0
For count2 As Integer = 0 To PointsArray.Length - 1
    PointsArray(count2) = 0
Next

'Search in text
For x As Integer = 0 To lines.Length - 1
    Dim words() As String = lines(x).Split(" ")
    For a As Integer = 0 To wordsSearch.Length - 1
        wordToSearch = wordsSearch(a)
        For y As Integer = 0 To words.Length - 1
            If 0 <= words(y).Length - wordToSearch.Length And (words(y).Length - wordToSearch.Length) < 2 Then 'The length of the word may be 1 element 1 longer (e.g. a "." or a "?")
                Dim counter As Integer = 0
                For z As Integer = 0 To wordToSearch.Length - 1

                    If words(y).Substring(z, 1) = wordToSearch.Substring(z, 1) Then
                        counter += 1
                    End If
                Next
                If counter > wordToSearch.Length - 2 Then
                    PointsArray(x) += 1
                End If
            End If
        Next
    Next
Next

'Make a list with all the lines
Dim ArrayLines(lines.Length - 1) As Integer

For x As Integer = 0 To lines.Length - 1
    ArrayLines(x) = x
Next

'Sort: 'Implemented from wiki - http://nl.wikipedia.org/wiki/Bubblesort
Dim i As Integer
Dim v As Boolean
Dim j As Integer
Dim temp As Integer
Dim temp2 As Integer
Dim count As Integer = PointsArray.Length - 1

i = 0
v = True
Do While i < count - 1 And v = True
    v = False
    j = 0
    Do While j <= count - i - 1
        If PointsArray(j) > PointsArray(j + 1) Then
            temp = PointsArray(j)
            PointsArray(j) = PointsArray(j + 1)
            PointsArray(j + 1) = temp
            'Sort also the array with the lines....
            temp2 = ArrayLines(j)
            ArrayLines(j) = ArrayLines(j + 1)
            ArrayLines(j + 1) = temp2
            v = True
        End If
        j = j + 1
    Loop
    i = i + 1
Loop

'Now, we can show the result (Say, only the first 5)
Dim results As Integer = PointsArray.Length - 6
If results < 0 Then
    results = 0
End If
For i = PointsArray.Length - 1 To results Step -1
    If PointsArray(i) = 0 Then 'If the line has no "points"
        Exit For
    End If
    txtNew.Text += "Line nr. " + ArrayLines(i).ToString + " :" + lines(ArrayLines(i)) + vbNewLine
Next