クエリーに日本語などが混じる場合は、クエリーにURLエンコードが必要です。
Application.WorksheetFunction.EncodeURL(クエリー部分)
みたいな感じにするとどうでしょうか？