VBSでコンパイルエラー発生

実現したいこと

VBAで動いていたコードをVBSに移行するのに悩んでいます。
下記のコード、Likeが使えなくてRegExpを利用したところですが
そもそも下記の「ReDim Preserve tmp(1 To i)の行で
コンパイルエラーが出ます
具体的には「)がありません」とのこと
下記以外の場所にも怪しいところはなさそうで
該当の行を外すとエラーは消えます

発生している問題・エラーメッセージ

')'がありません。 800A03EE Microsoft VBScript コンパイルエラー

該当のソースコード

vbs

1Dim temp() 2Set regEx = CreateObject("VBScript.RegExp") 3regEx.Pattern = testPattern 4 5For Each test In fso.GetFolder(FolderPath).Files 6 If regEx.Test(test.Name) Then 7 ReDim Preserve tmp(1 To i) 8 Set tmp(i) = f 9 i = i + 1 10 End If 11Next

試したこと

他のエラーはなんとか検索してなおしてきましたが
ここが謎でつまづいています…お助けいただければ幸いです