Private Sub quicksort(ByVal LB As Long, ByVal UB As Long, D As Integer)
Dim A           As Integer
Dim X           As Long
Dim P1          As Long
Dim P2          As Long
Dim Ref(0 To 1) As Variant
Dim TMP(0 To 1) As Variant
A = 1
If D = 0 Then: A = 1
P1 = LB
P2 = UB
X = (P1 + P2) / 2
Ref(D) = arrMerk_h(X, D)
Ref(A) = arrMerk_h(X, A)
  Do
    Do While (arrMerk_h(P1, D) < Ref(D))
    P1 = P1 + 1
    Loop
    Do While (arrMerk_h(P2, D) > Ref(D))
    P2 = P2 - 1
    Loop
    If P1 <= P2 Then
    TMP(D) = arrMerk_h(P1, D)
    TMP(A) = arrMerk_h(P1, A)
    arrMerk_h(P1, D) = arrMerk_h(P2, D)
    arrMerk_h(P1, A) = arrMerk_h(P2, A)
    arrMerk_h(P2, D) = TMP(D)
    arrMerk_h(P2, A) = TMP(A)
    P1 = P1 + 1
    P2 = P2 - 1
    End If
  Loop Until (P1 > P2)
If LB < P2 Then Call quicksort(LB, P2, D)
If P1 < UB Then Call quicksort(P1, UB, D)
End Sub