Sub CreatiArr()
    With Worksheets("справочник")
         iArr = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)(1, 8)).Value '***
    End With
End Sub

'Запуск поисковика
Sub ShowForm()
frmSearch.Show 0    '***
End Sub

Private Sub Btn_Выбрать_Click()
With Main
    .Show 0   '***
    .TextBox1 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 0)
    .TextBox2 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 1)
    .TextBox3 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 2)
    .TextBox4 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 3)
    .TextBox5 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 4)
    .TextBox6 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 5)
    .TextBox7 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 6)
    .TextBox8 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 7)
    'индексы столбцов от нуля начинаются (и строк тоже)
End With
'Main.Show
frmSearch.Hide
End Sub