Создать изменяющийся массив?

[-Katerina-]

Есть два массива: С Именами и Паролями.

Admin 6554
Иванов 111
Петров 222
Сидоров 333
Кирилов 444


Но они могут изменятся (могут добавляться имен, могут изменяться пароли). И чтобы не изменять это в самом модуле, как прописать это через ссылки на лист.

Сейчас прописано вот так:

A = Array("Admin", "Иванов", "Петров", "Сидоров", "Кирилов") 
b = Array("6554", "111", "222", "333", "444")              

For i = 1 To UBound(A)
    If TextBox1.Text = A(i) And TextBox2.Text = b(i) Then
        Sheets(i + 1).Visible = True
        Sheets(1).Visible = xlVeryHidden
        UserForm1.Hide
    ElseIf TextBox1.Text = A(0) And TextBox2.Text = b(0) Then
        UserForm1.Hide
        Run "SheetsVisible"
    Else

помогите плиз

[Watcher_1]

Как то так.
Подразумеваетя то логины/пароли на первом листе в столбцах А и В

Dim myF As Range
    Set myF = Sheets(1).Columns(1).Find(TextBox1.Text, , , xlWhole)
    If Not myF Is Nothing Then
        If myF.Next = TextBox2.Text Then
            Sheets(i + 1).Visible = True
            Sheets(1).Visible = xlVeryHidden
            UserForm1.Hide
        End If
    Else
        UserForm1.Hide
        Run "SheetsVisible"
    Else

[-Katerina-]

не хочет. Выдает "424" ошибку.
есть еще какие то варианты?

[EducatedFool]

А готовое решение использовать не пробовали?
http://excelvba.ru/tools/Authentication

[Watcher_1]

Сообщение от -Katerina-

не хочет. Выдает "424" ошибку.
есть еще какие то варианты?

Чтобы были варианты нужен рабочий файл...