Напишите дату в asp: TextBox

Вы можете создать цикл Do Until, который останавливается, когда целочисленная переменная равна длине строки, которую вы проверяете. Если фраза существует, увеличьте свои вхождения и добавьте длину фразы плюс позицию, в которой она находится, с переменной курсора. Если фраза не найдена, вы выполнили поиск (больше результатов), поэтому установите ее в длину целевой строки. Чтобы не засчитывать одно и то же событие более одного раза, проверьте только курсор на длину целевой строки в Loop (strCheckThisString).

    Dim input As String = "hello there. this is a test. hello there hello there!"
    Dim phrase As String = "hello there"
    Dim Occurrences As Integer = 0

    Dim intCursor As Integer = 0
    Do Until intCursor >= input.Length

        Dim strCheckThisString As String = Mid(LCase(input), intCursor + 1, (Len(input) - intCursor))

        Dim intPlaceOfPhrase As Integer = InStr(strCheckThisString, phrase)
        If intPlaceOfPhrase > 0 Then

            Occurrences += 1
            intCursor += (intPlaceOfPhrase + Len(phrase) - 1)

        Else

            intCursor = input.Length

        End If

    Loop