Нумерация строк в TextBox-е / RichTextBox-е - VB

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

Доброго всем времени суток. Я программированием довольно давно не занимался, а тут друг попросил написать простенькую прогу, генерирующую текст, содержание которого зависит от того, какие чекбоксы отмечены. Т.е. содержание текста всегда одно, а потом к нему добавляются некоторые строки в зависимости от выделенных чекбоксов. Каждому чекбоксу соответствует строковый текст. Чекбокс выделил - строка добавляется в текст. И вот как раз эти строки от выделенных чекбоксов мне нужно пронумеровать. В идеале бы ещё сделать дописывание после каждой строки знака ";", а после последней строки дописывать точку, но этот пункт можно опустить. Буду благодарен всем откликнувшимся.

Решение задачи: «Нумерация строк в TextBox-е / RichTextBox-е»

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

                            Dim i As Integer
i = 1
If CheckBox1.Checked Then Text3.Text = Text3.Text & i & ") Текст" & vbNewLine : i = i + 1
If CheckBox2.Checked Then Text3.Text = Text3.Text & i & ") Ещё_текст" & vbNewLine : i = i + 1
If CheckBox3.Checked Then Text3.Text = Text3.Text & i & ") Опять_текст" & vbNewLine : i = i + 1
If CheckBox4.Checked Then Text3.Text = Text3.Text & i & ") И_снова_текст" & vbNewLine : i = i + 1
If CheckBox5.Checked Then Text3.Text = Text3.Text & i & ") Текст_с_текстом" & vbNewLine : i = i + 1
                        