'' Okay, say you wanted to write a sub to resize an array...

Dim blahArray(1 to 20) as Integer
increaseArray( blahArray )

'' BlahArray will now be 1 to 21 (well, it should be)

Private Sub increaseArray( ByRef myarray() as Integer )
  ReDim Preserve myarray( UBound(myarray) + 1 )
End Sub