Replacing multiple spaces with another character

Question

i need to replace multiple spaces with another char in a string
my code is
Dim text as String="a bit much             a little much" Dim arr As String() = text.Split({" "c}, StringSplitOptions.RemoveEmptyEntries)Dim newtext As String = String.Join(" ", arr)            MsgBox(newtext)           
 it returns to "a bit much  a little much "
But i want to replace only long spaces with "="  as  "a bit much =a little much"
How can i do that?

Answer 1

This version uses two spaces to split the string and then trims any additional single spaces. It returns "a bit much = a little much".
Dim text As String = "a bit much a little much "
Dim parts() As String = text.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
Dim newText As String
If parts.Length = 2 Then
newText = parts(0).Trim & " = " & parts(1).Trim
End If