Запуск файла CSV и запись данных

Dim XLM As Object
Set XLM = CreateObject("Excel.Application")
FileName = App.Path & "\BD\Сотрудники.CSV"
XLM.Visible = False
For Each X In XLM.Worksheets("Сотрудники").Range("A1:A5").Value 'ругается на "Х" в xl работает нормально! 
    ComboBox1.AddItem X
Next
  XLM.ActiveWorkbook.save
XLM.ActiveWorkbook.Close
XLM.Quit
 Set XLM = Nothing

Dim F As Long
F = FreeFile
Open App.Path & "\BD\Сотрудники.CSV" For Input As #F
...........

Dim F As Long
F = FreeFile
Open App.Path & "\BD\Сотрудники.CSV" For Input As #F
...........
For Each X In XLM.Worksheets("Сотрудники").Range("A1:A5").Value 'ругается на "Х" 
    ComboBox1.AddItem X
Next

arr = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\Temp\список.txt", 1).ReadAll, vbCrLf)    'массив строк текста целиком

Dim XLM As Object
Set XLM = CreateObject("Excel.Application")
FileName = App.Path & "\BD\Сотрудники.CSV"
XLM.Visible = False
For Each X In XLM.Worksheets("Сотрудники").Range("A1:A5").Value
    ComboBox1.AddItem X
Next

    Dim ff As Integer, s As String, i As Integer
    ff = FreeFile
    'Open App.Path & "\BD\Сотрудники.CSV" For Input As #ff  '   Какое все-таки имя файла?
    Open App.Path & "\BD\Контрагенты.CSV" For Input As #ff  '   Какое все-таки имя файла?
        Do Until EOF(ff) Or i >= 5  '   или до конца файла, или первые пять строк
           Input #ff, s
           Combo1.AddItem Split(s, ";")(0)  '   Как у Вас называется комбобокс ? ComboBox1 ? А у меня просто Combo1
           i = i + 1
        Loop
    Close #ff

s As String,

ComboBox1.AddItem Split(z, ";")(0)

Text1.AddItem Split(z, ";")(2)

 Dim ff As Integer, z As String, i As Integer
    ff = FreeFile
    Open App.Path & "\BD\Сотрудники.CSV" For Input As #ff
                  Input #ff, z
           Text1.AddItem Split(z, ";")(2)
             Loop
    Close #ff

Line Input #ff, s

Option Explicit
Private Sub Command1_Click()
 
    Dim ff As Integer, z As String, i As Integer
    ff = FreeFile
    Open App.Path & "\BD\Сотрудники.CSV" For Input As #ff
        z = Input(LOF(ff), #ff)           'считывам весь файл
    Close #ff
    
    MsgBox GetValue(z, 1, 1) ' значение в первой строке и первом столбце
    
End Sub
 
Function GetValue(st As String, row As Integer, column As Integer) As String
    On Error Resume Next
    GetValue = Split(Split(st, vbCrLf)(row - 1), ";")(column - 1)
End Function

GetValue

Private Sub Command10_Click()
Dim ff As Integer, z As String
Dim Family  As String, q
  ff = FreeFile
Open App.Path & "\BD\Сотрудники.CSV" For Input As #ff
        Family = InputBox("Введите Фамилию сотрудника!.", "Поиск сотрудника")
      q = GetValue(z, 0, 0)
     z = Input(LOF(ff), #ff)
 
  If q = "" Then
    MsgBox "Уточните критерии поиска", 48, "СООБЩЕНИЕ"
Else
    If Family = q Then
      Text1(7).Text = GetValue(z, 1, 7) 
            End If
            End If
               Close #ff
End Sub