Advice on code
 

I am wondering if there is any way to convert this code,
It looks up a value in a cell and then it checks for the corresponding name
in another column.

How can I change this code to put all the matches in 1 listbox.

here is the code:

Dim ans

Sheet2.Activate
On Error Resume Next

TextBox1.Text = Sheet2.Range("ab2").Value

ans = Application.Match(CLng(TextBox1.Text ), Range("L:L"), 0)
If Not IsError(ans) Then

Label3.Caption = Application.Index(Range("b:b"), ans)

end if

how do i change the second part to fill if more than 1 match and then fill a
listbox with the answers

Thanks



Greg