请教一下这个vbs如果转为vb6的话要怎么写呢?

Dim WshShell, QQPath, QQselect
QQPath="E:\QQ\Bin\QQ.exe" '这里写你的QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run(QQPath)
WScript.Sleep 2000
WshShell.AppActivate QQ2010 '2010的写QQ2010
WshShell.SendKeys "+{TAB}"
for j=0 to 15
WshShell.SendKeys "{BS}"
next
WScript.Sleep 500
WshShell.SendKeys "7335678" '这里是QQ号码
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
for j=0 to 15
WshShell.SendKeys "{BS}"
next
WshShell.SendKeys "xxxxxxxxx'这里是QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"