Сейчас объясню все по порядку...при создании рабочего листа его имя сохраняется в текстовый файл. И теперь названия листов, которые хранятся в текстовом файле должны вывеситься в ComboBox

У меня при создании нового листа его имя сохраняется в отдельный файл. И вот сейчас не получается забрать эти данные и передать их в ComboBox
Вот мой код, не пойму, что в нем не так:

Private Sub ComboBox1_Change()
ActiveSheet.ComboBox1.List = Split(CreateObject("Scripting.FileSystemObject").Getfile("B:\test.txt").OpenasTextStream(1).ReadAll, vbNewLine)
End Sub