error 800A004C error en tiempo de ejecucion

[jcgm86]

instalo un software i me sale este error en este archivo creshsim.vbs
linea 13
caracter 6
ruta de acceso no encontrada.

este es el codigo del archivo pero no encuentro el error necesito ayuda
Dim objShell, strPath, strFolder, objShortcut, fso
Set objShell = WScript.CreateObject( _
"WScript.Shell" )
set fso = CreateObject("Scripting.FilesystemObject")
strPath = objShell.SpecialFolders( _
"StartMenu" )

strFolder = strPath & "\Programs\Simrad"

If (fso.FolderExists(strFolder)) Then
msg = "File exists"
Else
fso.CreateFolder(strFolder)
End If

Set objShortcut = objShell.CreateShortcut( _
strFolder & "\EA400.lnk" )
strAcc = "C:\EA400\"
objShortcut.TargetPath = strAcc & _
"EA400.EXE"
objShortcut.WindowStyle = 4
objShortcut.Save

Set objShortcut = objShell.CreateShortcut( _
strFolder & "\GPTSim.lnk" )
strAcc = "C:\EA400\"
objShortcut.TargetPath = strAcc & _
"GPTSim.EXE"
objShortcut.Arguments = 3
objShortcut.IconLocation = "C:\EA400\gptsim.ico, 0"
objShortcut.WindowStyle = 4
objShortcut.Save

[Valery-Net]

El error indica que el archivo al cual le deseas crear el acceso directo no existe en la ruta indicada, coloca un msgbox para que te muestre la ruta donde se creará el acceso directo y verifica que exista