Public Function StringX(ByVal TheString As String, _
   ByVal TheChar As Char) As String
 
   If String.IsNullOrEmpty(TheString) Then Return String.Empty
 
   Dim stb As New System.Text.StringBuilder
   For i As Integer = 0 To TheString.Length - 1
      stb.Append(TheString(i))
      If Not TheString(i) = " "c Then stb.Append(TheChar)
   Next i
   Return stb.ToString
End Function