потеря данных в массиве

[FINAL]

В разделе General Declarations у меня описан массив строк:
Dim aT() As String

Он заполняется значениями при открытии документа:
Private Sub Document_Open()
....
ReDim aT(k, 1) As String
....

Дальше все работает как надо, я могу использовать эти данные, но когда я вызываю форму, все данные массива теряются. Кто нибудь знает, в чем тут дело?
PS: запускаю форму через .Show, закрываю через Unload.

[alibek]

Попробуй не Dim, а Global.

[FINAL]

К сожалению не помогает, а в разделе ThisDocument, где у меня хранятся Document_Open и другие обработчики событий вообще такое вставлять нельзя. Пробовал через AutoOpen - все равно теряются значения. Также пытался принудительно выполнять AutoOpen(), чтобы массив вновь заполнился, но почему-то Word аварийно закрывается. Мне кажется, здесь что-то неправильное с моим диалоговым окном. В нем выбирается некоторое значение, вносится небольшое изменение в документ, и оно закрывается через Unload. Похоже, что, как ни крути время жизни любой переменной заканчивается то ли при запуске, то ли при выгрузке формы. Будем продолжать поиски.

[FINAL]

и еще один вопрос: когда запускается мое диалоговое окно
Form1.Show
Word почему-то перестает быть активным, активируется окно любой программы и приходится переключаться обратно в Word. Ерунда конечно, но раздражает сильно. Я бы мог контролировать все через
mydoc.Activate
но просто не пойму как.

[alibek]

Ты в модуль вставляй, а не в ThisDocument.
Либо объявляй, как Public.
И в любом случае используй Option Explicit.

[FINAL]

все равно не работает, даже если я полностью переписываю код, который заполняет массив, в макрос, который вызывает форму.
Но тем не менее большое спасибо, Большой Человек.