VBS Execメソッドでのアプリケーションの起動について

Question

###前提・実現したいこと
VBSで、txtファイルを読み込んだ上で特定のソフトを起動し、ソフトが終了したら注意メッセージを出したいと思っております。
このとき、txtファイル、特定のソフトともに変数に格納しています。
txtファイル、特定のソフトともに変数にせずフルパスで書けば、txtファイルを読み込んだ上で問題なく起動するのですが、変数にするとtxtファイルを読み込んでくれません。
変数での書き方（ソースコードの下から４行目）をご教示いただけないでしょうか。

なお、txtファイルが一定の頻度で変わる、ソフトは使用者によって存在場所が違うため、変数に格納しなければなりません。

###該当のソースコード

Option Explicit
Dim objShell, ObjFolder, objFiles, ea, filename, FSO, EXEPROGRAM, oExec

'txtファイルのあるフォルダ名
Const TRGTFOLDER ="C:\aaa\bbb\"

Set objShell = WScript.CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'ソフトのパスを変数に格納
If objFSO.FileExists("C:\Program Files\ccc\ddd\abc.EXE") = True then
	EXEPROGRAM = "C:\Program Files\ccc\ddd\abc.EXE"
Else
	If objFSO.FileExists("C:\Program Files (x86)\ccc\ddd\abc.EXE") = True then
		EXEPROGRAM ="C:\Program Files (x86)\ccc\ddd\abc.EXE"
	Else
		MsgBox"abc.exeが存在しません"
		WScript.Quit
	End if
End if

Set ObjFolder = objFSO.getFolder(TRGTFOLDER)
Set objFiles = ObjFolder.Files 

'txtファイル名の取得
For Each ea In objFiles
If LCase(Right(ea,4))=".txt" Then
	filename= ea
	MsgBox(ea)  & vbCrLf & vbCrLf & "このファイルを読み込んでabc
.exeを起動します"
	Exit For
End If
Next

If Len(filename)>0 Then
　　　　'↓★★★ここの書き方でつまづいています！★これだと起動しません★★★
	Set oExec = objShell.Exec(EXEPROGRAM　filename)
Else	
	MsgBox "ファイルは見つかりません。",16 
End If

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

Answer 1

EXEPROGRAMのアプリにfilenameをパラメーターとして与えて起動できればいいんですよね？
アプリ名 パラメーターという文字列が生成できれば良いので、下記のようにすればいけると思います。

Set oExec = objShell.Exec(EXEPROGRAM & " " & filename)

Comments

[mozuq]

ありがとうございます！
うまくできました！
自分では全く思いつかなかったので、本当に助かりました。
ありがとうございました。