Private Sub ns(arr As Variant)
  Dim l As Long, i As Long, j As Long
  For i = 0 To UBound(arr)
   For j = i + 1 To UBound(arr)
    If a(i) < a(j) Then
     Call nc(a(i), a(j))
     End If
    Next j
  Next i
  
For l = 0 To UBound(arr)
 Debug.Print arr(l)
 Next l
End Sub


Private Sub nc(a, b)
 Dim num As Integer
 num = a
 a = b
 b = num
End Sub


Private Sub Command1_Click()
Dim myarr As Variant
 myarr = Array(45, 68, 120, 31)
 Call ns(myarr)
End Sub