Поиск и сравнение в текстовом поле - VB

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

Доброго времени суток! В моей программе идет сравнение текстового поля 1 и текстового поля 2, при этом при совпадении курсор остается в значении "qw", то есть после найденного слова. Первое текстовое поле статично Второе динамично, третье нужно заполнить после поиска. Вопрос знатокам: как сохранить в текстовом поле 3 следующие 10 значений после курсора qw из поля 2. Т.е. с поиском нужного я справился, но осталось сохранить то что находиться справа от него в отдельное тестовое поле (10 следующих символов)

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command7_Click()
 
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then 'Сверяется 2 текстовых поля
Text2.SetFocus 'На Text2 ставим курсор
Text2.SelStart = InStr(qw, Text2.Text, Text1.Text) - 1 'Устанавливаем курсор перед совпавшимся словом
Text2.SelLength = Len(Text1.Text) 'С помощью функции Len считаем сколько символов в Текстовом поле 1, и столько же
 
'выделяем
qw = InStr(qw, Text2.Text, Text1.Text) + Len(Text1.Text) ' Изменяем переменную qw на позицию курсора, для того, чтобы
 
'при следующем поиске, не искать уже найденное слово, а искать след. слово
Else ' Если в тексте больше нет искомого слова, то выводим об этом сообщение.
MsgBox "Здесь таких нет!!!"
End If
 
End Sub

так же qw я заранее объявил вне кнопки Dim qw As Long и при загрузке формы qw = 1 спасибо за ответы, это очень замечательный форум!

null

Сделал кое как

криво сделал, помогите дописать пожалуйста.

null

и в итоге получается так, работает

Решение задачи: «Поиск и сравнение в текстовом поле»

textual
                            Листинг программы 
                        
Text3.Text = Mid(Text2.Text, qw, 10)