Eintrag gefunden und dann Ausgabe in ListBox?

Habe gestern schon einmal so ähnlich gefragt, aber ich denke mein Ansatz war falsch, deswegen noch einmal in geänderter Form:

Ich habe eine SuchRoutine hier aus diesem Forum genommen, die auch Wunderbar funktioniert. Jetzt möchte ich aber nicht wie in dieser Routine das die gefundenen Einträge "Rot" markiert werden,
sondern würde diese gerne in einer ListBox ausgeben.

ABER WIE????

Anbei der Code:

########################################################

Sub TabelleDurchsuchen()
Dim s As String

s = InputBox("Was suchst du ?", , ActiveCell.Value)
If s = "" Then
Exit Sub
End If
Set found = Cells.Find(s,LookIn:=xlValues,_ LookAt:=xlPartLookin:=xlValues)
If Not found Is Nothing Then
FirstAddress = found.Address
Do
found.Activate
found.Interior.ColorIndex = 3
Set found = Cells.FindNext(After:=ActiveCell)
On Error Resume Next

If found.Address = FirstAddress Then Exit Do
found.Interior.ColorIndex = 3
Loop
End If
End Sub

#################################################

Danke für Eure Mithilfe
Gruss Ralf K.