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