"Alan Beban" wrote...
If speed of execution is an issue, one might want to remove the ReDim
Preserve from the loop:
....

If execution speed were critical, one might dispense with the ReDim Preserve
call entirely and use

Dim ar3(1 To 10)