Removendo os espaços em excesso de uma string usando expressões regulares em VB.NET

'Este trecho de código mostra como remover os
'espaços em excesso 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     em   excesso  "

    'retira todos os espaço em excesso da string
    frase = Regex.Replace(frase, "\s{2,}", " ").Trim()

    Console.WriteLine(frase)

    Console.ReadKey()
  End Sub
End Module