Упорядочить элементы массива

[Rustamel]

Помогите люди добрые! Не могу никак допереть как написать код. Упорядочить элементы массива(для четных вариантов - по возрастанию, для нечетных по убыванию). Случайный одномерный массив

Зарание огромное спасибо

[Cpluser]

Пользуемся поиском!
http://www.cyberforum.ru/visual-basic/thread70784.html

[IgorGO]

Function Sort12(rg As Range)
  ReDim ar(1 To rg.Rows.Count, 1)
  For i = 1 To rg.Rows.Count
    ar(i, 0) = rg.Cells(i, 1)
  Next
  For i = 3 To rg.Rows.Count Step 2
    For j = 1 To i Step 2
      If ar(i, 0) > ar(j, 0) Then
        v = ar(i, 0)
        For k = i To j + 2 Step -2
          ar(k, 0) = ar(k - 2, 0)
        Next
        ar(j, 0) = v
        Exit For
      End If
    Next
  Next
  For i = 4 To rg.Rows.Count Step 2
    For j = 2 To i Step 2
      If ar(i, 0) < ar(j, 0) Then
        v = ar(i, 0)
        For k = i To j + 2 Step -2
          ar(k, 0) = ar(k - 2, 0)
        Next
        ar(j, 0) = v
        Exit For
      End If
    Next
  Next
  Sort12 = ar
End Function

[Rustamel]

Спасибо, добрый человек, помогло!