Imports System
 
Public Class Test
    Public Shared Sub Main()
        Dim Input As String = "I am  a string   with  double spaces. Can you  make     me normal   again?"
        Dim Result As String = String.Join(" ", Input.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries))
        Console.WriteLine("-- Input --")
        Console.WriteLine(Input)
        Console.WriteLine()
 
        Console.WriteLine("-- Result --")
        Console.WriteLine(Result)
    End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBEaW0gSW5wdXQgQXMgU3RyaW5nID0gIkkgYW0gIGEgc3RyaW5nICAgd2l0aCAgZG91YmxlIHNwYWNlcy4gQ2FuIHlvdSAgbWFrZSAgICAgbWUgbm9ybWFsICAgYWdhaW4/IgogICAgICAgIERpbSBSZXN1bHQgQXMgU3RyaW5nID0gU3RyaW5nLkpvaW4oIiAiLCBJbnB1dC5TcGxpdChOZXcgQ2hhcigpIHsiICJjfSwgU3RyaW5nU3BsaXRPcHRpb25zLlJlbW92ZUVtcHR5RW50cmllcykpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIi0tIElucHV0IC0tIikKICAgICAgICBDb25zb2xlLldyaXRlTGluZShJbnB1dCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgpCgogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCItLSBSZXN1bHQgLS0iKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKFJlc3VsdCkKICAgIEVuZCBTdWIKRW5kIENsYXNz