Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\Temp\список.txt", 1)    'Подставьте свой путь к txt-файлу
arrstr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целикомts.Close

With CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\Temp\список.txt", 1)    'Подставьте свой путь к txt-файлу
arrstr = Split(.ReadAll, vbCrLf)    'массив строк текста целиком
End With

Public oDict As Object

Sub tt()
    Dim a(), i&
    If oDict Is Nothing Then
        a = [a1].CurrentRegion.Value
        Set oDict = CreateObject("scripting.dictionary")
        For i = 1 To UBound(a): oDict.Item(a(i, 1)) = i: Next
    End If
    MsgBox oDict.Item([a2].Value)
End Sub

'объявляем публичный объект -
'будет доступен всегда и всюду, пока жив Эксель
Public oDict As Object

Sub tt()
    Dim a(), i&    'объявляем переменные, ничего интеесного...
'если словарь ещё не существует
    If oDict Is Nothing Then
        'берём в массив все анализируемые номера с листа
        a = [a1].CurrentRegion.Value
        'делаем из объекта словарь
        Set oDict = CreateObject("scripting.dictionary")
        'перебираем в цикле массив (первый столбец),
        'помещаем в словарь анализируемые значения и к каждому
        'его позицию в массиве (номер строки массива)
        For i = 1 To UBound(a): oDict.Item(a(i, 1)) = i: Next
    End If

    'ну а тут просто демонстрация - имеем откуда-то значение
    '(я взял значение из A2, но может быть любой источник, например
    'введённый пользователем куда угодно - ячейка, инпутбокс, форма,
    'перебор в цикле другого массива/списка/текстового файла),
    'проверяем наличие значения в словаре, и если есть -
    'получаем номер его строки
    If oDict.exists([a2].Value) Then MsgBox oDict.Item([a2].Value)
    'по номеру строки можно получить любые другие данные этого массива

End Sub