検索ボックスにセット

Module2.bas

Option Explicit
Sub hoge2()
    Dim Shl As Shell32.Shell
    Dim Win As InternetExplorer
    Const StrPath As String = "C:\Temp"

    Set Shl = New Shell32.Shell
    For Each Win In Shl.Windows
        If Win.FullName Like "*\Explorer.EXE" Then
            If Win.document.Folder.Self.Path = (StrPath) Then
                Win.Visible = True
                Application.Wait Now + TimeSerial(0, 0, 1)
                Application.SendKeys "^f"
                Application.Wait Now + TimeSerial(0, 0, 1)
                'Application.SendKeys "abc"
                SendKeys "テスト"
            End If
        End If
    Next
End Sub