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