VBScriptのReplace()関数の代替にJScriptを使う。

ScriptControl経由でJScriptのStringオブジェクトのreplace()メソッドを使う。

a=String(1024*1024,"a")
t1=Timer
Set sc=CreateObject("ScriptControl")
sc.Language="JScript"
sc.AddCode "function replace(s,p,r){return s.replace(p,r);}"
b=sc.CodeObject.replace(a,"a","b")
MsgBox Timer-t1
' 0.625

わざわざ使うほどのことはないですが、HTMLやWSFなどならいいかも。