Как сделать добавление слов к тексту - VB

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

Проблема следующая --> Я долго думал как лучше придумать вам задачку которая мне даст ответ на мой вопрос. Вообщем,нужен код для программы у которой есть 3 чек бокса и 1 текст.Мне нужно чтобы При выборе чек боксов менялся текст. Например: если был вбыран 1 текст бокс,то в тексте появилась надпись текст бокс 1- выбран, также с другими. Как это сделать? Прошу объяснить свой код, а не просто его скинуть.Заранее огромное спасибо!

Решение задачи: «Как сделать добавление слов к тексту»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim Check1Txt As String, Check3Txt As String, Check2Txt As String
 
Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Check1Txt = "Выбран Check1"
Else
Check1Txt = ""
End If
If Check1(1).Value = 1 Then
Check2Txt = "Выбран Check2"
Else
Check2Txt = ""
End If
If Check1(2).Value = 1 Then
Check3Txt = "Выбран Check3"
Else
Check3Txt = ""
End If
Text1.Text = Check1Txt & Check2Txt & Check3Txt
End Sub