初心者です。vbsを使用し、指定した日の間を、yy mm dd としてsplit関数で格納したい

vbsにて2015年1月05日から2015年2月5日までを
yyyy/mm/dd形式にて出力される処理を
"Replace"を使用してyyyymmdd形式で表示しています。

この処理をsplit関数で配列にすることは可能でしょうか。

また、可能でしたら以下の形式を目指したいと考えています。

年月日
yy mm dd

以下に作成中のvbsを記載いたします。

Option Explicit

' **********************************************************
' オブジェクト作成
' **********************************************************
Dim objFso:Set objFso = CreateObject("Scripting.FileSystemObject")
Dim objShell:Set objShell = WScript.CreateObject("WScript.Shell")
Dim bFind

' **********************************************************
' ファイル作成用関数
' **********************************************************
Function funcOpen(i, szFileName)
'msgbox FileName

Dim szPath:szPath = WScript.ScriptFullName
szPath = objFso.GetParentFolderName(szPath)

Dim objOut:Set objOut = objFso.OpenTextFile(szPath & "\" & szFileName, 8, True)
objOut.WriteLine Replace(i,"/", " ")

objOut.Close

End Function

' **********************************************************
' ファイル削除用関数上書きされ続ける処理を防止するため。
'また、ファイルがない場合のエラーを回避する。
' **********************************************************
Function funcFileDel(szFileName)
msgbox szFileName

Dim szPath:szPath = WScript.ScriptFullName
szPath = objFso.GetParentFolderName(szPath)

bFind = objFso.FileExists(szPath & "\" & szFileName)

msgbox bFind

If bFind = False Then

	Exit Function

End If

objFso.DeleteFile(szPath & "\" & szFileName)

End Function

' **********************************************************
' メイン処理 2016/1/25 から 2016/2/5まで書き出す。
' **********************************************************
Dim i
Dim d1
Dim d2

d1 = CDate("2016/1/25")
d2 = CDate("2016/2/5")

Dim szFileA
szFileA = "date1.txt"

Call funcFileDel(szFileA)

for i = d1 To d2
Call funcOpen(i, szFileA)
Next