Subscript out of range

[guin.anirban]

Split function will return only zero based one dimensional array. But in 3rd line you are trying to assign the value to a two dimensional array. You can try the following:

Code:

sToDate = Split("6/11/10 4:35 AM", " ")
MsgBox sToDate(0)
sToDate(0) = Split(sToDate(0), "/")
MsgBox sToDate(0)(2)
sToDate(0)(2) = "20" & sToDate(0)(2)
MsgBox sToDate(0)(2)