连续空格怎样视为一个空格呢？该如何解决

连续空格怎样视为一个空格呢？
123   456       \ '一个空格
123     456     \ '两个空格
123..               \ '多个呢？
连续空格怎样视为一个空格呢？  
参考百度搜索  
注意使用vb实现   提供方法的也给分

[解决办法]
正则表达式
[解决办法]
reg=new regex
reg.pattern= " +? "
reg.replace(str, " ")
[解决办法]
replace(str, " ", " ")
[解决办法]
While InStr(Str, " ")> 0
Str=Replace(Str, " ", " ")
Wend