有一个小小的问题 ，我很菜鸟，所以看看什么地方错了
Private Sub Label4_Click()txtsum = Val(txtPrice) * Val(txtQYT)
If txtsum > 200 Then
txtdiscount = Val(txtsum) * 0.1
txtrsum = Val(txtsum) - Val(txtdisount)
Else
txtrsum = txtsum
End If
End Sub
启动时，输入数字，然后点击结果，好久没出来结果，请求大家看看，不知道哪里出了问题？点了没反应结果是多少
