Reversing Array Elements in O(n/2)

 
Public Sub ReverseArray(arrPerson() as String)
Dim iIndex As Integer
Dim strTemp As String
  For iIndex=LBound(arrPerson) To UBound\2(arrPerson)
    strTemp=arrPerson(iIndex)

arrPerson(iIndex)=arrPerson(UBound(arrPerson)-iIndex+LBound(arrPerson))
    arrPerson(UBound(arrPerson)-iIndex)=strTemp
  Next
End Sub