Переставить местами разряды

[valerij]

Есть ряд чисел, выглядит так(условно обозначим через буквы):
Вставляется в А1

ABCDEFGH  ABCDEFGH ABCDEFGH ....

где - любая буква, может принять значение от 0 до F
колличество групп, может быть различным(даже не знаю, какой максимум), то же самое и о пробелах, между группами.

Нужно получить такой вид в В1:

GHEFCDAB  GHEFCDAB GHEFCDAB ...

Как мона так сделать?

[EducatedFool]

Sub test()
    MsgBox ИзменитьПорядок("ABCDEFGH   ABCDEFGH  ABCDEFGH")
    [b1] = ИзменитьПорядок([a1])
End Sub

Function ИзменитьПорядок(ByVal txt As String)
    arr = Split(txt, " "): If Not IsArray(arr) Then Exit Function
    For i = LBound(arr) To UBound(arr)
        w = arr(i): res = ""
        For j = Len(w) \ 2 To 1 Step -1
            res = res & Mid(w, j * 2 - 1, 2)
        Next j
        ИзменитьПорядок = ИзменитьПорядок & res & " "
    Next i
    ИзменитьПорядок = Trim(ИзменитьПорядок)
End Function

Запусти макрос test

[valerij]

test

Игорь, спасибо