Textbox1 to show results not working

i have text or number in B:F with dates in col A, i got this code and i cant seem to find why its not working. this is done on a userform. when i put a date in the first text box i want all rows relating to that date displayed in textbox2. so if i put in 13 July 2013 it will show me all records relating to that date in textbox2

Private Sub CommandButton1_Click()
row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("Progress Schedule").Range("A" & row_number)
If item_in_review = TextBox1.Text Then
TextBox2.Text = Sheets("Progress Schedule").Range("B:F" & row_number)
End If

Loop Until item_in_review = ""
End Sub