Loop trough range and find vlaue

Question

I have a problem, so i try to toop trough a range and insert everv found item into a listbox. So far so good, the first row was found, but then nothing?

Dim ItemRange As Range: Set ItemRange = Data.Range("Data!A1:F300") ''Set the range within I want to look for
Dim HelpRange As Range: Set HelpRange = ItemRange 
Dim Found As Range: Set Found = ItemRange.Find(TextBox_Search.Value)

Do Until Found Is Nothing
    i = Found.Row
    If k = i Then
        Exit Do
    End If

    k = i

    ListBox_Item.AddItem
    ListBox_Item.List(j, 0) = i

    j = j + 1

    Set HelpRange = Range(Cells(i, 1), Cells(300, 6))  ''Set the range new, so the value isnt fount twice

    Set Found = Nothing
    Set Found = HelpRange.Find(TextBox_Search.Value)


Loop

There is some other Data to find, but i didnt understand why it is not found??