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

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