请问怎么用vb 做 QQ即时交流（看看我的代码）

Question

就是在文本框输入任意qq号，然后就打开 和 这个 QQ的 对话框，
网上看了很多 类似的 小软件，我想用 vb应该很好做，可是我做到这
就不会了，呵呵 请大家指教 下
代码如下：
Private Sub Command1_Click()
Dim num As Integer
p = Text1.Text
Shell ("explorer.exe tencent://message/?uin=p")
End Sub
看到了么，我想用 变量p存储 text1.text 里输入的QQ号
然后 和 基本网址 组合
但是explorer.exe tencent://message/?uin=p 打不开
请大家指教 下 ，该怎么样做。

Answer 1

http://wpa.qq.com/msgrd?V=1&Uin='" & QQ号码 & "'&Menu=yes

Answer 2

Shell ("explorer.exe tencent://message/?uin=p")　
改為　Shell ("explorer.exe tencent://message/?uin=" & p)

Answer 3

Shell ("explorer.exe tencent://message/?uin=" & p)

Answer 4

现在代码改为Private Sub Command1_Click()
Dim p As Integer
p = Text1.Text
Shell ("explorer.exe tencent://message/?uin=" & p)
End Sub可是还不行提示“溢出”错误请高人指点！

Answer 5

Dim p As Integer 
Change Int to long or string