Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом - VB

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

Дан текст на русском языке и некоторые два слова. Определить, сколько раз они входят в текст и сколько раз они входят непосредственно друг за другом. (Рационально)

На вижуал бэйсеке

Решение задачи: «Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом»

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