Сортировка Массива

Здравствуйте.
Как отсортировать этот массив по возрастанию?
Подскажите код

Dim mnA(n) As Integer
Randomize()
For i = 0 To n
mnA(i) = a + (b - a) * Rnd()
Next i
For i = 0 To n - 1
TextBox4.Text += CStr(mnA(i)) + Space(3)
Next i