Como substituir todos os espaços em uma string por caracteres de sublinhado (underline)

'Este exemplo mostra como substituir todos os espaços
'em uma string por caracteres de sublinhado (underline)

Module Module1
  Sub Main()
    Dim frase As String = "Gosto de Visual Basic.NET"
    'vamos substituir espaços por underline
    frase = frase.Replace(" ", "_")

    Console.WriteLine(frase)

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