Добавление текста из TextBox в ячейку EXCEL - VB

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

Имеется файл с несколькими листами. Так же есть TextBox. Как сделать что бы программа определяла в какой лист добавлять данные из TextBox-ов.

Решение задачи: «Добавление текста из TextBox в ячейку EXCEL»

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

                            Private Sub ComboBox1_Change()
    Dim iSource As Variant, iFindText As Variant

    With ComboBox1
         iFindText = .Value: .Clear
         [color=red]If iFindText <> "" Then
            For Each iSource In iArrSource
                If InStr(1, iSource, iFindText, _
                vbTextCompare) Then .AddItem iSource
            Next[/color]
         End If
         .List = .List 'только для пользователей, которые
         'осуществляют ввод при уже раскрытом списке и хотят
         'наблюдать процесс подбора данных
    End With
End Sub

                        