You can post a link to a thread if it might relate.

[VBA]Private Sub TextBox1_AfterUpdate()
Dim cell As Range
With Sheet2
'Worksheets("Sheet1").Range("A1").Value = Application.SumIf(.Columns(2), Me.TextBox1.Text, .Columns(3))
For Each cell In .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
If cell.Value2 = TextBox1.Text Then _
Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Offset(1).Value2 = cell.Offset(0, 1).Value2
Next cell
End With
End Sub[/VBA]