VBA Access Добавление в список в определённом порядке

[Ethex]

Доброго времени суток
Имеется в аксессе некоторое количество таблиц. Нужно добавить их имена в список в определённом порядке (разумеется, изначально они расположены не так как нужно). Благо таблицы всегда идентичны по типу и количеству
Я решил задачу следующим способом:

Dim db As DAO.Database, aot As DAO.TableDef
Set db = CurrentDb
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla1") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla2") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
   For Each aot In db.TableDefs
      If InStr(1, aot.Name, "blabla3") > 0 Then
      Me.Список.AddItem Item:=aot.Name
      End If
   Next
...
'И так далее для каждой из нужных таблиц

А существует ли более красивый и грамотный способ решения аналогичной задачи?

[Aleksandr H.]

вариант: идите по списку blabla1..n и проверяйте есть ли таблица с таким именем в списке таблиц базы

[Ethex]

Сообщение от Aleksandr H.

вариант: идите по списку blabla1..n и проверяйте есть ли таблица с таким именем в списке таблиц базы

Имеется в виду заполнить список вручную и организовать по нему цикл?