Set note x and y position in a multidimension array

Hey guys,

I am trying to set the x and y positions to an array. I will then sort the array based on those locations. The array will need an i as well as the x and y, so for each i, x=# and y=#.

    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
        Set swFirstNote = swView.GetFirstNote
        Set swNote = swView.GetFirstNote
        ReDim notes(notesTotalCounter)
        i = 0
        u = 0
        While Not swNote Is Nothing
            If swNote.GetText Like "`*" Then
                Set notes(i) = swNote
                i = i + 1
                Set swAnno = swNote.GetAnnotation
                loc = swAnno.GetPosition
                Dim u As Double
                Dim v As Double
                v = loc(1)
                u = loc(0)
                ReDim Preserve notes(i, u, v)
                
            End If
            Set swNote = swNote.GetNext
        Wend