如何去掉字符串中间的空格啊？如 dim s as string ,s="如何去掉字符串中间的 啊?",请各位大侠帮忙，给点思路也可以。
dim s as string
s="如何去掉字符串中间的 啊?"
dim s2 as string
dim i as integer
dim j as integer
j=len(s)
i=instr(s," ")
do while i>0
s2=s2+left(s,i-1)

s=trim(right(s,j-i+1))
i=instr(s," ")
j=len(s)
loop
print s2
呵呵，这个是我发贴时临时想出来的，各位大侠还有没有其他更有效的方法啊？谢谢

Private Sub Command1_Click()
Dim s As String
s = "如何去掉字符串中间的 啊?"
s = Replace(s, " ", "")
MsgBox s
End Sub