VBSの質問です

1.vbs
***************************
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "a.vbs"
***************************
を実行した場合はa.vbsがきちんと動くのですが
2.vbs
***************************
dim wsh
Dim objFileSystemObject
Dim strFolderPath
set wsh = CreateObject( "WScript.Shell" )
Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
strFolderPath = objFileSystemObject.GetFolder(".").Path
wsh.CurrentDirectory = strFolderPath & "\hoge"
wsh.Run "b.vbs"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "a.vbs"
***************************
のようにb.vbsの処理を入れると
hogeフォルダの中にb.vbsがきちんと入っているにもかかわらず
a.vbsが見つかりませんというエラーが出てきます
どこを修正すれば
2.vbsでa.vbsが動くようになるのでしょうか？