Определить количество повторяющихся сочетаний "XX" и заменить их символом "!" - VB

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

дана задача: Взять последовательность из L символов, содержащую повторяющиеся сочетания символов "XX". Определить количество повторяющихся сочетаний "XX" и заменить их символом "!". L>=30 подскажите, пожалуйста, что нужно добавить чтоб вычислялось количество повторяющихся сочетаний "XX" и условие L>=30? Листинг программы:

Dim s As String 'динамический массив слов
 
Private Sub CommandButton1_Click()
Dim i As Integer
TextBox1.Text = Selection 'очистка поля для результатов
For i = 1 To Len(TextBox1.Text)
  If Mid$(TextBox1.Text, i, 1) <> Mid$(TextBox1.Text, i + 1, 1) Then
       s = s + Mid$(TextBox1.Text, i, 1)
             
       Else
         If Mid$(TextBox1.Text, i, 1) <> Mid$(TextBox1.Text, i - 1, 1) Then
          s = s + "!"
          i = i + 1
         
End If
End If
Next i
CommandButton3.Enabled = True
CommandButton3.SetFocus
End Sub
 
Private Sub CommandButton2_Click()
End 'выход из программы
End Sub
 
Private Sub CommandButton3_Click()
TextBox2.Text = s
End Sub

null

например, такой текст дан Этто лаббораторрная работа Поо ППО как тут посчитать количество повторений букв?

Решение задачи: «Определить количество повторяющихся сочетаний "XX" и заменить их символом "!"»

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