Grails автоматическое обновление ограничений

Я не знаю, если это более очевидно? Начиная с начала longString проверьте следующие символы до числовых символов в phrase, если phrase не найден, начните смотреть со второго символа и т. Д. Если он найден, начните с текущей позиции плюс число символов в phrase и увеличьте значение occurences

 Module Module1
Sub Main()

    Dim longString As String = "Hello there. My name is John. I work very hard. Hello there! Hello therehello there"

    Dim phrase As String = "hello There"


    Dim occurences As Integer = 0
    Dim n As Integer = 0

    Do Until n >= longString.Length - (phrase.Length - 1)
        If longString.ToLower.Substring(n, phrase.Length).Contains(phrase.ToLower) Then
            occurences += 1
            n = n + (phrase.Length - 1)
        End If
        n += 1
    Loop
    Console.WriteLine(occurences)


End Sub
End Module