连续 Tab 字符 合并的有关问题，

连续 Tab 字符 合并的问题，请指教！
字段间隔为连续的Tab键，想将这些连续出现的Tab键合并为1个，例如：

字符串a为：（用"Tab"表示Tab键）
TabTab几点TabTabTabTab大喊大叫Tab对对对TabTab速度速度

转换后为：
Tab几点Tab大喊大叫Tab速度速度

如果间隔为连续的空格，方便实现，如下:
Do While InStr(Str, Space(2))
  Str = Replace(Str, Space(2), Chr(9))
Loop

但是不知道如何表示连续的Tab键，不好使用上面的方法。（不能采用先将Tab都转换为空格，再合并空格，最后再将单个空格转换成Tab的变通方法，希望一步到位）。

[解决办法]
正则表达式。
[解决办法]
TAB(N);TAB(M) 用“；”隔开即可。
[解决办法]
Do While InStr(StrTmp, vbTab & vbTab)
StrTmp = Replace(StrTmp, vbTab & vbTab, vbTab)
Loop

Str 是 VB 关键字，不要用它作变量名。