Работа с ComboBox - VBA

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

Кнопка "ИПС" - перебираем все текстовые файлы в папке, запоминаем, какие темы в каких файлах содержатся В первый комбобокс записываются темы, во второй все файлы. Кнопка "Показать"- показывает что написано в выбранном файле по выбранной теме. как сделать так, чтобы при выборе темы из первого комбобокса во втором выводились только те файлы, в которых присутствует тема?

Решение задачи: «Работа с ComboBox»

textual
                            Листинг программы 
                        

                            Private Sub CBT_Click()
    CBF.List = Split(Split(Split((CreateObject("Scripting.FileSystemObject").OpenTextFile(ActiveWorkbook.Path & "\Перечень.txt", 1).ReadAll), CBT.Text & " -- ")(1), vbNewLine)(0), ", ")
End Sub
                        