请高手指教一下这道VB题应该怎样做？

'text1为被除数 text2为除数
Private Sub Command1_Click() '执行除法运算
text3 = Val(Text1.Text) / Val(Text2.Text) '商
text4 = Val(Text1.Text) \ Val(Text2.Text) '整数商
text5 = Val(Text1.Text) Mod Val(Text2.Text) '求余
End Sub

Private Sub Command1_Click()
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
If Val(Text1.Text) Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Text4.Text = Fix(Val(Text1.Text) / Val(Text2.Text)) 'int（）和fix（）都会删除小数部份而返回剩下的整数 ，对负数处理不同
Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)
Else
MsgBox "除数为零！"
End If
Else
MsgBox "被除数或除数输入错误！"
End If
End Sub

不知道你“执行除法运算”是 命令按钮还是标签？是标签 改为Private Sub label1_Click()

双击“执行除法运算”
Private Sub Command1_Click()
Text3.Text = Text1.Text / Text2.Text
Text4.Text = Text1.Text \ Text2.Text
Text5.Text = Text1.Text Mod Text2.Text
End Sub