VB程序设计计算器问题 当做除法的时候 我点击清除会出现类型不匹配或者是实时错误什么什么的 大神们帮我看看错在哪

这是除法代码If Label1.Caption = "/" Then
Text3.Text = Round(CDec(Text1.Text) / CDec(Text2.Text), 3)

这是清除代码Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = Text1.Text
Label1.Caption = ""
End Sub

Label1.Caption = "+"
End Sub

Private Sub Command2_Click()
Label1.Caption = "-"
End Sub

Private Sub Command3_Click()
Label1.Caption = "*"
End Sub

Private Sub Command4_Click()
Label1.Caption = "/"
End Sub

没问题吧，完整代码怎么样的？我这里测试正常

Private Sub Command1_Click()
Label1.Caption = "+"
End Sub

Private Sub Command2_Click()
Label1.Caption = "-"
End Sub

Private Sub Command3_Click()
Label1.Caption = "*"
End Sub

Private Sub Command4_Click()
Label1.Caption = "/"
End Sub

Private Sub Command5_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = Text1.Text
Label1.Caption = ""
End Sub

Private Sub Command6_Click()
If Label1.Caption = "+" Then
Text3.Text = Round(CDec(Text1.Text) + CDec(Text2.Text), 3)
End If
If Label1.Caption = "-" Then
Text3.Text = Round(CDec(Text1.Text) - CDec(Text2.Text), 3)
End If
If Label1.Caption = "*" Then
Text3.Text = Round(CDec(Text1.Text) * CDec(Text2.Text), 3)
End If
If Label1.Caption = "/" Then
Text3.Text = Round(CDec(Text1.Text) / CDec(Text2.Text), 3)
End If
End Sub