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

Формулировка задачи:

Ребята подскажите пожалуйста, что я не так делаю с этим файлом:

                    Листинг программы
                
 
                        
                          
                    
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
...........

Решение задачи: «Запуск файла CSV и запись данных»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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