a=Array(1,2,3,4,"a") 
Function js1(n) 
for i=1 to n 
f=f"f"i"" 
s=s"For Each f"i " In a :wscript.echo " f 
s=Mid(S,1,Len(S)-1)":" 
Next 
js1=s 
End Function 

Function js2(n) 
for i=1 to n 
m=m  "Next"  ":" 
Next 
js2=m 
End Function 

lcx= js1(UBound(a)+1)js2(UBound(a)+1) 
lcx=Mid(lcx,1,Len(lcx)-1) 
b="a=Array(1,2,3,4,""a""):"lcx 

Execute b