好像没什么好办法,这样试试:
Dim s As String = "A B C D"Output.Show(s.Replace(" "," ").Replace(" "," ").Replace(" "," ").Replace(" "," ").Replace(" ","|"))