Como remover (retirar) todos os espaços de uma string

'Este trecho de código mostra como remover todos os
'espaços de uma string usando expressões regulares

Imports System.Text.RegularExpressions

Module Module1
  Sub Main()
    Dim frase As String = "Esta frase contém espaços"

    'retira todos os espaço da string
    frase = Regex.Replace(frase, "\s", "")

    Console.WriteLine(frase)

    Console.ReadKey()
  End Sub
End Module