Tom,

I recently 'discovered' that redim preserve can be used
to redim a 1 dimensional array from 0based to 1based..
and vice versa

Sub foo()
Dim v
'fill it 0based assumes option base 0
v = Array(1, 2, 3)
'make it 1based
ReDim Preserve v(1 To UBound(v) + 1)
Stop
ReDim Preserve v(0 To UBound(v) - 1)
Stop
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Tom Ogilvy" wrote :

'Return 0 based for compatibility
ReDim v0(0 To UBound(v1) - 1)
For i = 0 To UBound(v0): v0(i) = v1(i + 1): Next

Split = v0