ACCESSを使ってIEを起動しgoogle検索

質問

Win7 sp1 64bit、ACCESS 2013、IE11を使用しています。
IEを起動し、テキストボックスに入力されている値(全角文字)を使って
Google検索を行うフォームを作り、使用していました。
最近、Google検索の結果が、急に文字化けするようになってしまい
対処方法が分からなくなっています。
ソースコードは次の通りです。

Dim objIE As Object
Dim varRet As Variant

Set objIE = CreateObject("InternetExplorer.Application")
varRet = "http://www.google.com/search?q=" & [テキストボックス] & "&num=50&hl=ja&filter=0&lr=lang_ja&ie=Shift_JIS"

If varRet <> "" Then
　objIE.Navigate varRet
objIE.Visible = True
End If
Set objIE = Nothing

PC再起動、キャッシュやクッキーなど、IEの閲覧履歴を全て削除しても
改善できませんでした。

何処かGoogleの仕様が変わったのでしょうか。
文字コードの変換？をコードに追加する必要があるのでしょうか。
対処方法について、ご教授願います。

回答No.1

noname#212058 · ベストアンサー

varRet に入れているURL文字列の末尾に &oe=shift_jis
を追加してみてください。
それでもだめなら、参考URLの記事をみて他の値も試
してみましょう。

参考URL：

http://www13.plala.or.jp/bigdata/google.html

お礼

回答ありがとうございます。
パラメータをshift_jisにすると化けるようですが
パラメータを逆に"なし"→"自動判別"で解決しました。
ありがとうございました。