vb 字符串转数组问题

Question

文本中的字符串转数组，首先去电首尾空格，然后重复赋值给文本，这步已经实现，然后，将字符串中间的多余空格去掉（用空格分开每个元素），思路已有，就是先判断是否有两个空格，如果有，将两个空格换成一个空格，然后赋值给文本，再进行判断，如果没有，进行后面的代码或者goto，但是具体代码不会，或者可能有其他思路，本人菜鸟，需要完整代码并详细注释，谢谢

Answer 1

    Do While InStr(str1, "  ")
        str1 = Replace(str1, "  ", " ")
    Loop

大概是这个意思吧 就是把STR1这个字符串中所有 两个空格或者两个以上的空格 都变成一个空格

Answer 2

S1 = Replace(文本中的字符串转数组, " ", " ")
S1就是两个空格换成一个空格的文本