マクロファイルと同じフォルダにある、今日の日付ブックを開く

上記タイトル通りです。
今日の日付とキーワード（この場合は「kuma」）が含まれているファイルを開き、シートのA1セルの文字をmsgboxで出します。
ファイルを探す方法は、エクセルレジェンドの田中先生のマクロを参考にさせていただきました。

Sub test()
    Dim path As String, buf As String, wb As Workbook
    
    path = ThisWorkbook.path & "\"
    buf = Dir(path & "*xls*")
    
    Do While buf <> ""
        If buf Like "*" & Format(Now(), "eemmdd") & "*kuma*" Then
            Workbooks.Open Filename:=path & buf
            Set wb = ActiveWorkbook
            MsgBox wb.Worksheets(1).Range("A1")
            Exit Do
        End If
        buf = Dir()
    Loop
    
    Set wb = Nothing
End Sub