Как прокрутить Scroll в TextBox-е если текст не влезает в окно? - VB

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

Помогите пожалуйста....!!! Добавляю в TextBox имена листов из Excel файла по очереди на каждую строчку вот так примерно...

                    Листинг программы
                
For с = 1 to 32
 
Set ExcSheet = ExcExcel.Worksheets(listname(c))
Text4 = Text4 + '  - ' & listname(c)
Text4 = Text4 + Chr(13) + Chr(10)
Text4.Refresh
 
Next с

Размер TextBox позволяет вместить только 11 строк... Когда первые 11 заболнят Box то остальные просмотреть будет не возможно пока не закончится весь цикл... Как сделать что бы при добавлении новой записи в TextBox ScrollBar сдвигался вниз на последнюю добавленную запись? Спасибо.........

Решение задачи: «Как прокрутить Scroll в TextBox-е если текст не влезает в окно?»

textual
                            Листинг программы 
                        
Text1.SelStart = Len(Text1.Text)
Text1.SelText = 'new line of text' & vbNewLine
Text1.SelStart = Len(Text1.Text)