Modify macro to output to Combobox

[swaggerbox]

I have a macro that searches a textbox for diseases listed in a range (acty sheet column A). Is there a way I can output the results to 1) combo box, 2) listbox, or 3) on the existing sheet. I want three different examples so I know how to deal with them in the future. Attached is the representative sample. Hope someone can help me.

Public Sub T()
  Dim sSentence As String
  Dim s As Variant
  Dim sDict As Variant
  Dim last As Long

  last = Sheets("Acty").Range("A65536").End(xlUp).Row
  
  sDict = Sheets("Acty").Range("A1:A" & last)

  sSentence = Sheets("GUI").TextBox1
  
  For Each s In sDict
    If InStr(1, sSentence, Trim$(s), VbCompareMethod.vbTextCompare) > 0 Then
      MsgBox s
    Else
  
    End If
  Next

End Sub

[snb]

In codemodule of Sheet1:

Sub M_snb()
     sn = Sheet1.Cells(1).CurrentRegion
     c00 = Sheets("GUI").TextBox1
  
     For j = 1 To UBound(sn)
         If InStr(c00, sn(j, 1)) Then c01 = c01 & vbLf & sn(j, 1)
     Next

     MsgBox c01
End Sub

[p45cal]

See attached.

[swaggerbox]

Wow p45cal. You are Heaven-sent. This is exactly what I need. Thanks also snb as always