Sub Sample1()
Dim DataList, myData, i As Long, buf As String
Set DataList = CreateObject("System.Collections.ArrayList") ''.NET Frameworkへの参照
For i = 1 To 5
DataList.Add Int(Rnd() * 10000) ''5個の乱数を配列にセットする
Next i
DataList.Sort ''配列をソートする
Set myData = DataList.Clone ''配列の複製を作る
For i = 0 To myData.Count - 1
buf = buf & myData(i) & vbCrLf
Next i
buf = buf & "------" & vbCrLf
DataList.Reverse ''配列を逆順にする
For i = 0 To DataList.Count - 1
buf = buf & DataList(i) & vbCrLf
Next i
MsgBox buf
Set myData = Nothing
Set DataList = Nothing
End Sub