'小林,你的太长了,用这个吧,好记
Dim Proc As New ProcessProc.File = "tencent://message/?uin=800014337" '把后面的号码换成QQ号就成Proc.Start()