Sorting an array of a specific class module

[MartinaLucilla]

Hi there!

I have a problem resulting in an "array or user-defined type expected" error.
I have two class modules, EventClass and EventArrayClass. I am creating a discrete event simulation, which is not really important right now.
I am trying to sort the EventClass array that is stored in an EventArrayClass object

My EventClass has the following variables:

Please Login or Register  to view this content.

They are all available trough Get an Let methods:

Please Login or Register  to view this content.

The EventArrayClass consists of the following variables:

Please Login or Register  to view this content.

Adding an event to the EventArray goes according to this sub:

Please Login or Register  to view this content.

This will add the event to the array, while having the array sorted according to the EventTime of the different events.
Now I have a method that will change the EventTime of a certain event, leaving the EventArray unsorted.
Like the following:

Please Login or Register  to view this content.

Now I want to be able to call a Sub that will sort the Event Array.
I try to do this using the QuickSort algorithm

In the EventArrayClass I have the following two methods:

Please Login or Register  to view this content.

Calling the sub SortEventArray does no work. It results in an "array or user-defined type expected" error.
I call the sub in the following test method:

Please Login or Register  to view this content.

To make it complete, the PrintArray in EventClassArray:

Please Login or Register  to view this content.

I hope someone can help me. I think the problem is in the reference to the EventArray in the method QSortEventArray, but I cant find out why.
I hope the problem is clear. If not let me know.

Help much appreciated!

[JosephP]

I cannot see a reason for that error with your code but there are issues with your quicksort. perhaps

Please Login or Register  to view this content.

[MartinaLucilla]

Thanks! I did not know if the QuickSort worked since i cannot call the Sub.

It however does not solve my current issue. Anyone any ideas?

[JosephP]

your posted code work for me after making those changes. can you post a workbook showing your issue?

[MartinaLucilla]

Hereby a file with the code.

[JosephP]

that workbook works for me after changing the sort routine as indicated. where does it actually break for you?