Excel VB TextBox? CheckBox?

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

TextBox Хочу чтобы после занесения в TextBox любого слова и нажатия кнопки ОК текст который я набрал в TextBoxЕ разносился по Лист3, Лист4. по координатам (Лист 3 А:1, Лист4 А:1). CheckBox У меня есть 4е CheckBoxА и кнопка ОК после установки флажка и нажатия кнопки ОК должен удалится лист. ПЛИЗ ХЕЛП :-)

Решение задачи: «Excel VB TextBox? CheckBox?»

textual
                            Листинг программы 
                        
 
                            
                        
'создает массив комплектов
Sub MakeArrayOfKomplekts()
    Dim i As Integer
    Dim fn As Integer
    Dim sStr As String
    Dim aKom
    Dim aKom2
    Dim TekNum As Integer
    Dim bFirst As Boolean
    Dim sPrevKomName As String
    aComplekts = Array()
    fn = FreeFile
    bFirst = True
    sPrevKomName = ''
    Open ThisWorkbook.Path + 'TxtKomplekts.txt' For Input As #fn
    Do While Not EOF(fn)
        Line Input #fn, sStr
        sStr = TranslateToWin(sStr)
        If Left(sStr, 1) = '[' Then
            If Not bFirst Then
                aKom2 = Array()
                ReDim Preserve aKom2(UBound(aKom2) + 2)
                aKom2(0) = sPrevKomName
                aKom2(1) = aKom
                ReDim Preserve aComplekts(UBound(aComplekts) + 1)
                aComplekts(UBound(aComplekts)) = aKom2
                sPrevKomName = Mid(sStr, 2, Len(sStr) - 2)
            Else
                bFirst = False
                sPrevKomName = Mid(sStr, 2, Len(sStr) - 2)
            End If
            aKom = Array()
        ElseIf sStr = '===' Then
            Exit Do
        Else
            aKom2 = SplitArrayToStringA(sStr, '!')
            ReDim Preserve aKom(UBound(aKom) + 1)
            aKom(UBound(aKom)) = aKom2
        End If
    Loop
    aKom2 = Array()
    ReDim Preserve aKom2(UBound(aKom2) + 2)
    aKom2(0) = sPrevKomName
    aKom2(1) = aKom
    ReDim Preserve aComplekts(UBound(aComplekts) + 1)
    aComplekts(UBound(aComplekts)) = aKom2
    Close #fn
End Sub