VBSプログラミングコミュのご教授願います・・・

VBScriptでファイルからgoogle検索

カレントディレクトリの.txtファイルを1行づつ読み込み、google検索したいのですが、ウィンドウが複数立ち上がってしまい1ウィンドウでタブで表示したいのですが上手くいきません。。と、テキストファイル名もタイトルタグで表示したいです。どなたかご存知でしたらご教授願います。以下、書きかけのソースになります。

----------------------------------------------------------------------------------
use_ie

Sub use_ie()

'Option Explicit
'On Error Resume Next

Dim objFSO ' FileSystemObject
Dim objFile ' ファイル読み込み用
Dim objWshShell ' WshShell オブジェクト

If Err.Number = 0 Then
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
For Each FLO In objFSO.GetFolder(objWshShell.CurrentDirectory).Files
path = FLO.Path
If Right(path, 4) = ".txt" Then
Set objFile = objFSO.OpenTextFile(path, 1)
Do While objFile.AtEndOfStream <> True

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
'ie.Navigate "about:blank"
'ie.Document.Write "<title>path</title>"
ie.Navigate "http://www.google.co.jp/" ',2048 '新規タブで開く
waitIE ie
ie.Document.getElementById("q").Value = objFile.ReadLine

WScript.Sleep 100

' 検索ボタンクリック
ie.Document.all("btnG").Click
waitIE ie
strURL = "https://www.google.co.jp/"
If ie.LocationURL = strURL Then
ie.Quit
Set ie = Nothing
End If
Loop
objFile.Close
End If

Next
Else
WScript.Echo "ファイルオープンエラー: " & Err.Description
End If

Else
WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing
Set objWshShell = Nothing
Set ie = Nothing

End Sub

' IEがビジー状態の間待ちます
Sub waitIE(ie)

Do While ie.Busy = True Or ie.readystate <> 4
WScript.Sleep 100
Loop

WScript.Sleep 1000

End Sub