Расстановка данных согласно эталонному перечню - VBA

Формулировка задачи:

Здравствуйте! Есть эталонный перечень: А, В, С, D, E, F... Есть перечень данных: B, A, E. Вопрос: как упорядочить перечень данных, согласно эталонному перечню, что бы на выходе было: A, B, E? Спасибо!

Решение задачи: «Расстановка данных согласно эталонному перечню»

textual
                            Листинг программы 
                        

                            Sub Etalon()
Dim arrEtalon(), arrIn(), arrOut()
Dim m As Long
Dim S1, S2, S3 As String
m = 1
ReDim arrOut(m)
arrEtalon = Array("A", "B", "C", "D", "E", "F") 'эталонный перечень
arrIn = Array("D", "A", "E") 'перечень данных
For i = LBound(arrEtalon) To UBound(arrEtalon)
For j = LBound(arrIn) To UBound(arrIn)
If arrEtalon(i) = arrIn(j) Then
arrOut(m - 1) = arrEtalon(i)
m = m + 1
ReDim Preserve arrOut(m)
End If
Next
Next
S1 = Join(arrEtalon, ",")
S2 = Join(arrIn, ",")
S3 = Join(arrOut, ",") ' данные на выходе:
MsgBox ("Эталонный перечень:   " & S1 & Chr(13) & "перечень данных :   " & S2 & Chr(13) & "на выходе:   " & S3)
                        