Excel VB TextBox? CheckBox?

'создает массив комплектов
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