Macro for ordering dates chronologically in Words Documents

[jimbog]

Thanks Ginid. The functions are working great. One last question. I'm now trying to push one column from the sorted VARIANT array (b) out to a defined range in Excel (f). I'm using the process below, but it takes some time. Might there be a faster way?

for x 0 b.len
f.Cells.Item(x+1)=b[2 x]