using a custom userform search my data table in excel

Private Sub CommandButton1_Click()
Dim WS As Worksheet
Set WS = Worksheets("Daily Ship Data")


row_number = 1
Do
DoEvents
row_number = row_number + 1
items_in_review = WS.Range("C" & row_number)
If item_in_review = TextBox1.Text Then[/SUP]
    TextBox2.Text = WS.Range("A" & row_number)
    TextBox3.Text = WS.Range("J" & row_number)
   TextBox4.Text = WS.Range("L" & row_number)
    TextBox5.Text = WS.Range("M" & row_number)
  TextBox6.Text = WS.Range("B" & row_number)
   End If
 Loop Until items_in_review = ""




End Sub

Private Sub next_lots_Click() 
     Dim WS As Worksheet
    Dim item_in_review
    Set WS = Worksheets("Daily Ship Data")
    Dim FoundOne As Range, LookInR As Range
    Dim fAddress As String
     
    Set LookInR = WS.Range("C1", Cells(Rows.Count, 3).End(xlUp))
    With LookInR
        Set FoundOne = .Find(What:=Part.Text, After:=ActiveCell, _
                 LookIn:=xlFormulas, _
                 LookAt:=xlPart, _
                 SearchOrder:=xlByRows, _
                 SearchDirection:=xlNext, _
                 MatchCase:=False)
                 
        If Not FoundOne Is Nothing Then
            fAddress = FoundOne.Address
            Do
                Me.Lot.Text = FoundOne.Offset(0, -2).Value
                Me.PartsDesc.Text = FoundOne.Offset(0, 1).Value
                Me.Crate.Text = FoundOne.Offset(0, 7).Value
                Me.Floor.Text = FoundOne.Offset(0, 10).Value
                Me.DatePac.Text = FoundOne.Offset(0, 9).Value
                Me.OgBin.Text = FoundOne.Offset(0, -1).Value
                Set FoundOne = .FindNext(After:=FoundOne)
            Loop While FoundOne.Address <> fAddress
        End If
    End With
    Set LookInR = Nothing
    Set FoundOne = Nothing
    
End Sub