можно так
Sub asort_param(tm() As Integer, razmer As Long)
' сортировка простым выбором
Dim i As Long
Dim j As Long
Dim k As Long
Dim wsp As Integer
Dim razm As Long
Dim strsql As String

' Dim strsql As String
razm = razmer ' UBound(tm)
For i = 0 To razm ' - 1
k = i
wsp = tm(i)
For j = i + 1 To razm
If tm(j) > wsp Then
k = j
wsp = tm(j)
End If
Next
tm(k) = tm(i)
tm(i) = wsp
Next
' debug
If True Then
strsql = " результат сортировки " & Chr(13)
For i = 0 To razm
strsql = strsql & "I=" & i & " UKZ= " & i _
& " = " & tm(i) & Chr(13)
Next
MsgBox strsql
End If
End Sub