vb输出文字变形

thunderPath = GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "instdir") 获取注册表内容
正确的路径应该是
d:\Program Files (x86)\Thunder Network\Thunder
不知道为什么debug.print() 之后 成下面这个了
d:\Program Files (x86)\Thunder Network\Thunder h u n d e r N e t w o r k \ T h u n d e r
msgbox显示又是正常的。

---

用cstr()
转换一下

---

这样来一下扰清：
dim thunderPathLen as string
for i= 1 to Len(thunderPath)
thunderPathLen=replace(thunderPathLen & “@","庆李此 "誉迅,"")
next i
debug.print format(thunderPath,thunderPathLen)

---