Hi,
du hattest nicht geschrieben, daß du in VBA Access arbeitest... deshalb hab ich angenommen, du wirkst auf einem IIS4 oder höher mit Active Server Pages (VB Script)...
wenn du das über VBA machst, dann solltest du vorher im Menü Extras oder so den Eintrag "Verweise suchen"... da kriegst du ein Dialogfeld, aus dem du Microsoft Scripting Runtime anklickst und den Dialog über OK wieder zumachst.
aus set ersetzArray = Server.CreateObject wird dann
dim ersetzArray as New Dictionary
Der Rest sollte genauso laufen. Außer Response.Write, das gibts auch nur unter ASP aufm Server...
Gruß, Frank