Is there a way to create a userform that does the same thing as the Find Userform

[Pookiemeister]

I would like to create a similar userform like the Find function (ctrl+F) but I need it to "Find All" the cells that contain the value of a text box then display them in a listbox like the Find All button within the find function. Once all the cells are found, I would need to loop through each location found in the list and offset it to retrieve another value. So I know how to find values by using the .find but how can I display them in a list box and loop through the list to obtain the values needed.

Thank You

 

[Fluff]

Something like

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim Ary As Variant
   Dim Cnt As Long, i As Long
   Dim Cl As Range
   
   If Me.TextBox1 = "" Then Cancel = True: Exit Sub
   Cnt = Application.CountIf(Range("A:A"), Me.TextBox1.Value)
   If Cnt = 0 Then
      Me.TextBox1 = ""
      Cancel = True
      Exit Sub
   End If
   Set Cl = Range("A1")
   ReDim Ary(1 To Cnt, 1 To 2)
   For i = 1 To Cnt
      Set Cl = Range("A:A").Find(Me.TextBox1.Value, Cl, , xlWhole, , xlNext, False, , False)
      Ary(i, 1) = Cl.Address: Ary(i, 2) = Cl.Offset(, 2).Value
   Next i
   Me.ListBox1.list = Ary
End Sub