Reversing Array Elements in O(n/2) where n is the number of elements:
Public Sub ReverseArray(arrPerson() as String)Dim iIndex As IntegerDim strTemp As String For iIndex=LBound(arrPerson) To UBound2(arrPerson) strTemp=arrPerson(iIndex)arrPerson(iIndex)=arrPerson(UBound(arrPerson)-iIndex+LBound(arrPerson)) arrPerson(UBound(arrPerson)-iIndex)=strTemp NextEnd Sub