Как отсортировать массив дробей

Option Explicit
Type PQ 'дробь
  p As Long 'числитель
  q As Long 'знаменатель
End Type
 
Sub SeRvErKrAuCh()
Const n As Long = 5 'к-во дробей
Dim a(1 To n) As PQ 'массив дробей
Dim i As Long, j As Long, Res As Long
Randomize
Debug.Print "Исходные дроби-"
For i = 1 To n 'заполнение
  a(i).p = Int(Rnd * 5) + 1 'числителей
  a(i).q = Int(Rnd * 5) + 6 'знаменателей
  Debug.Print a(i).p & "/" & a(i).q,
Next i
Debug.Print
Res = a(1).q 'ищем наименьший общий знаменатель
For i = 2 To UBound(a)
  Res = nok(Res, a(i).q)
Next i
For i = 1 To UBound(a) 'и приводим дроби к нему
  a(i).p = a(i).p * Res / a(i).q
  a(i).q = Res
Next i
For i = 1 To UBound(a) - 1 'сортируем
  For j = UBound(a) To i + 1 Step -1
    If a(i).p > a(j).p Then
      Res = a(i).p
      a(i).p = a(j).p
      a(j).p = Res
    End If
  Next j
Next i
Debug.Print "Отсортированные дроби-"
For i = 1 To UBound(a)
  Debug.Print a(i).p & "/" & a(i).q,
Next i
Debug.Print
End Sub
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function