How to Reverse an Array

Dim A
A = Array(10,20,30)
Revarray A

Private Function RevArray(byVal arrayinput)
Dim i, ubnd
Dim newarray()
ubnd = UBound( arrayinput )
Redim newarray(ubnd)
For i = 0 to UBound( arrayinput )
newarray( ubnd – i ) = arrayinput( i )
Next
RevArray = newarray
End Function