Fjerne fra array?

En function som fjeren en fra et array:

Sub RemoveFromArray(aList, RemoveThis)
Dim I
If RemoveThis > UBound(aList) Then
  Exit Sub
End If
If RemoveThis < UBound(aList) Then
  ' Shuffle the elements down
  For I = RemoveThis + 1 to UBound(aList)
      aList(I - 1) = aList(I)
  Next
End If
ReDim Preserve aList(Ubound(aList) - 1)
End Sub


aList er arrayet of RemoveList er indexet som skal fjerne.