

Anzeige aller Elemente im Array hSort
-------------------------------------

Public Sub btnShowSortedArray_Click()
  Dim i, k As Integer
  Dim aM, aN As Variant[]

  For i = 0 To hSort.Max
    aM = New Variant[]
    aM = hSort[i]
    For k = 0 To aM.Max
      Print aM[k]; " | ";
    Next
    Print
  Next
  
End