進捗ですソートできました

Option Explicit

Dim a
a = Array(-6,3,9,5,3,-7)
Sort a
WScript.Echo Join(a, ", ")

Sub Sort(a)
  Sort_ a, LBound(a), UBound(a)
End Sub

Sub Sort_(a, l, u)
  If l >= u Then Exit Sub
  Sort__ a, l, u
  Sort_ a, l + 1, u
End Sub

Sub Sort__(a, l, u)
  If l >= u Then Exit Sub
  If a(u - 1) > a(u) Then Swap a(u - 1), a(u)
  Sort__ a, l, u - 1
End Sub

Sub Swap(a, b)
  Dim c
  c = a
  a = b
  b = c
End Sub