vbs求助：请各位高手，大虾看看

谁能帮忙测试下：

要求：点击“点击弹出新窗口”可以 弹出新窗口链接，最好能解决在vbs里放置html

Dim ie,Pobj
Tlen = 1000
MsgX = 190
MsgY = 650
Const HTML ="<center><b>Welcome To My Compe</b></center>左边<P><div align=right>右边<P><div align=right><a target=blank href=(在html里要加上"）tencent://message/?uin=437299619&Site=阿城守候(ACity)&Menu=yes(在html里要加上"）><img border=0 SRC=http://wpa.qq.com/pa?p=1:437299619:4 alt=联系阿城>点击弹出新窗口</a>"
Call IsIe()
Call Effect(0)
While Tlen
WScript.Sleep 10
Tlen = Tlen - 1
Wend
Call Effect(MsgY)
ie.Quit
Sub IsIe()
Set ie = CreateObject("InternetExplorer.Application")
ie.NaviGate "about:blank"
ie.Width = ie.Document.ParentWindow.Screen.Width
ie.Height = ie.Document.ParentWindow.Screen.Height
Set Pobj = ie.Document.parentWindow.CreatePopup
Pobj.Document.Body.InnerHTML = HTML
End Sub
Sub Effect(Tval)
For i = 0 To MsgY
Pobj.show ie.Width,ie.Height,MsgX,Abs(i-Tval)
Next
End Sub
超链接在http://前要加上"才能实现跳转，但vbs里一行代码只能使用两个"（一个开始和一个结束）除了使用&
请各位高手，大虾看看