Сортировка массива. Шейкерный метод

[esage]

Всем привет. В Exel сортирую массив. Метод: шейкерная сортировка. Бьюсь уже несколько дней, не получается. Разработал 2 варианта кода, оба не сортируют. Вот посмотрите, пожалуйста.

Скажите в чем я не прав? Заранее благодарю.

1 вариант:

d = 1
i = 0
For k = N - 1 To 1
i = i + d
For j = 1 To k
If (a(i) - a(i + d)) * d > 0 Then

x = a(i)
a(i) = a(i + d)
a(i + d) = x
End If
i = i + d
Next j
d = -d
Next k

2 вариант:

L = 2
R = N
k = N
Do
For j = R To L
If a(j - 1) > a(j) Then
x = a(j - 1)
a(j - 1) = a(j)
a(j) = x
k = j
End If
Next j
L = k + 1
For j = L To R
If a(j - 1) > a(j) Then
x = a(j - 1)
a(j - 1) = a(j)
a(j) = x
k = j
End If
Next j
R = k - 1
Loop Until L > R