请教VB的高手！追分！

帮我看看下面这段代码哪出错了？
为何程序运行起来以后，不输入数字，点提交按钮，在程序的左方会出现一个数字"1" 再点一次 会陆续出现第二个数字"1"
很是郁闷啊！！！！

Private Sub command1_click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
cuowu = MsgBox("请正确输入！", 0, "提示信息")
Print cuowu
Exit Sub
Else
End If

'Dim data
'data = Text1.Text
Open "c:\1.txt" For Output As #1
Print #1, Text1, Text2, Text3
Close #1
answer = MsgBox("提交成功!", 0, "提示信息")
Print answer
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
KeyAscii = 8
Exit Sub
End If
If KeyAscii < 47 Or KeyAscii > 58 Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
KeyAscii = 8
Exit Sub
End If
If KeyAscii < 47 Or

请教VB的高手！追分！ 请教VB高手100分 100分请教VB高手 vb的问题 请教高手 VB高手进，有问题请教，有追加分 vb打包的问题,请教高手. 请教VB高手 还是刚才的问题 请教VB非常厉害的高手 请教高手VB的对象引用问题 请教会VB的高手帮忙~