VBS input assistant execution will call many messy processes

On Error Resume Next
Set Arg=
If =0 then 
'-------------------
'Enjoy it
'Code By NetPatch
'-------------------
fname=InputBox("Please enter the path to ECHO):","Enter file name","%systemroot%/system32/")

Set Fso=CreateObject("")
Set WshShell=("")
Set File=(Arg(0),1,False,-2)

"Start 5 seconds after the point is confirmed"
"Command Prompt"
 5000
"Command Prompt"

Do While  <> True
Data=
If Data="" then Data="."
Data=replace(Data,"^","{^}{^}")
Data=replace(Data,"~","{^}{~}")
Data=replace(Data,"&","{^}{&}")
Data=replace(Data,"|","{^}{|}")
Data=replace(Data,"<","{^}{<}")
Data=replace(Data,">","{^}{>}")
Data=replace(Data,"""","{^}{""}")
Data=replace(Data,"(","{(}")
Data=replace(Data,")","{)}")
Data=replace(Data,chr(9),"")
 "echo "&Data&">>"&fname
 300
 "{ENTER}"
 1000
Loop

Set Fso=nothing