Make The Listbox

How can I get the results, not in column D but in a textbox,so I can choose one of the
names from that text box?

Sub concatvals()
Dim strvalue As String
Dim strsearch As String
strsearch = InputBox("What Number do you want :?")
For Each c In Range("A1:A100")
If c.Value = strsearch Then
If Len(strvalue) < 1 Then
strvalue = c.Offset(0, 1).Value
Else
strvalue = strvalue & ", " & c.Offset(0, 1).Value
End If
End If
Next
Range("D1").Value = strvalue
End Sub