Se me ocurrio de la siguiente forma, fijate si te sirve
Código vb:
Ver original'----- Programed By CULD -----
Public Sub Main()
Dim inputt As String 'doble t por que es palabra reservada
Dim pattern As String = " "
Dim replacement As String = " "
Dim result As String
inputt = "This is text with far too much whitespace."
result = inputt
While (InStr(1, result, pattern, 1)) > 1
result = Replace(result, pattern, replacement)
Wend
Msgbox "Original String: " & input)
msgbox "Replacement String: " & result)
End Sub