Excel, VBA, Windowssuche, Ergebnise in Listbox

Option Explicit
'API declaration for the windows "Search Results" dialog  
Private Declare Function ShellSearch& Lib "shell32.dll" _  
Alias "ShellExecuteA" (ByVal hwnd As Long, _  
ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long)

Private Const SW_SHOWNORMAL = 1


Private Sub CommandButton1_Click()
   Const szSDrive As String = "C:\Users\halle4\auftrag\"  
   Dim suchwort As String
   'suchwort = Sheets(1).Range("e7").Value 'excel  
   'suchwort = InputBox("Search for...", "Look for") 'zb mit excel input  
   suchwort = TextBox1.Value 'userform textbox  
       If suchwort = "" Then  
           MsgBox "es gibt nichts zu suchen"  
           Exit Sub
       End If
   ShellSearch 0, "find", szSDrive, "", "", SW_SHOWNORMAL  
   Application.Wait (Now + TimeValue("0:00:01"))  
   SendKeys suchwort ' dannach ist bei mir die NUM Taste deaktiviert, es gibt Lösungen im Netz  
End Sub