Substituindo todas as ocorrências de uma substring em uma string

'Este exemplo mostra como substituir todas as ocorrências
'de uma substring em uma string

Module Module1
  Sub Main()
    Dim frase As String = "VB? Gosto muito de VB"
    'vamos substituir "VB" por "Python"
    frase = frase.Replace("VB", "Python")

    Console.WriteLine(frase)

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