Access2010：フォルダ内のaccde分のパッケージを自動で作成したい

Access2010：フォルダ内のaccde分のパッケージを自動で作成したいのですが、下記のソースでうまくいきません。
内容としてはフォルダ内のファイル分、各テンプレートファイルを作成し、そのファイルを読み込んで別フォルダにパッケージを作成しようとしています。

現象として以下の結果を確認しています。
・フォルダ内のファイルが1つの場合→ファイルタブが表示されてパッケージが1つも作成されない
・フォルダ内のファイルが3つの場合→最後のファイル名で同じパッケージが3つ作成

2回目のループ前にSleepを入れて処理を中断したりしてみたのですが、うまくいきません。

修正方法または何か別の良い方法がありますでしょうか。

Set myFolder = myFileSystem.GetFolder(txtCreateFolderPath.Value)
Const strClipBoardID As String = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"

For Each myFile In myFolder.Files

targetFileName = Replace(txtTemplatePath, Dir(txtTemplatePath), "") & myFile.Name & ".adepsws"

'テンプレートパッケージファイルをコピーする
FileCopy txtTemplatePath, targetFileName

'コピーしたパッケージファイルを開いて、'文字列置換
Call ReplaceUTF8(targetFileName, "◇OutputFolder◇", txtPackageOutFolder.Value)   '出力先を置換
Call ReplaceUTF8(targetFileName, "◇PrimaryFile◇", myFile.path)   '作成元を置換
Call ReplaceUTF8(targetFileName, "◆.◆◆", txtMajor & "." & txtMinor & txtBuild)    'Verを置換
Call ReplaceUTF8(targetFileName, "<VersionMajor>■</VersionMajor>", "<VersionMajor>" & txtMajor.Value & "</VersionMajor>")
Call ReplaceUTF8(targetFileName, "<VersionMinor>▲</VersionMinor>", "<VersionMinor>" & txtMinor.Value & "</VersionMinor>")
Call ReplaceUTF8(targetFileName, "<VersionBuild>●</VersionBuild>", "<VersionBuild>" & txtBuild.Value & "</VersionBuild>")

strFileName = myFile
testTxt.Value = myFile

If lngLoopCnt = 0 Then
    SelectRibbonTab "ホーム"
    SelectRibbonTab "ファイル タブ"
End If

Call wshSendKeys("%(D)")
Call wshSendKeys("Y(1)")
Call wshSendKeys("Y(2)")
Call wshSendKeys("L")   'Alt D：保存して発行 >>> Y 1→Y 2：パッケージソリューション >>> Ｌ：パッケージ読込

With GetObject("new:" & strClipBoardID)
    .SetText targetFileName
    .PutInClipboard
End With

'パスを貼り付けて開く
Call wshSendKeys("^(v)%(o)")

' N:次へ >>>N:次へ >>> N:次へ >>> Enter:OK →インストーラー作成
Call wshSendKeys("N")
Call wshSendKeys("N")
Call wshSendKeys("N")
Call wshSendKeys("{ENTER}")

lngLoopCnt = lngLoopCnt   1