Contando as ocorrências de uma substring em uma string

'Este exemplo mostra como usar o método IndexOf para
'contar as ocorrências de uma substring em uma string

Module Module1
  Sub Main()
    Dim frase As String = "Java? É muito bom programar em Java"
    Dim substring As String = "Java"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

    While cont < frase.Length
      pos = frase.IndexOf(substring, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & substring & """ encontrada na " _
         & "posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "substring " & substring)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module