怎么实现第三个文本框计算前两个文本框的积

如何实现第三个文本框计算前两个文本框的积
我想在第三个文本框中计算前两个文本框的积，代码如下：
Private   Sub   Text3_keypress(keyascii   As   Integer)
Dim   snumber,   sunitprice,   sdiscount,   ssumprice,   ssummoney   As   Single
    s1   =   Val(Text1.Text)
    s2=   Val(Text2.Text)
    s3   =   Val(Text3.Text)
   
    s3   =   s1   *   s2  
End   Sub
但不知道为什么不运行，无论我用Text3的click还是keypress都不执行。哪位高人帮我看看。

------解决方案--------------------
Private Sub Text3_keypress(keyascii As Integer)
Dim s1, s2, s3 As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
s3 = s1 * s2
Text3.Text = s3
End Sub

------解决方案--------------------
LZ的代码 可能是在C语言中使用指针的操作方式
------解决方案--------------------
首先，你定义的变量snumber, sunitprice, sdiscount, ssumprice, ssummoney 都没有用上，建议删去；而且在你的定义中Dim snumber, sunitprice, sdiscount, ssumprice, ssummoney As Single，这种写法只是把最后一个变量ssummoney定义为Single类型了，而其它的都是Variant类型；而后面的：
s3 = Val(Text3.Text)
s3 = s1 * s2
两句则是顺序颠倒了；先通过s3 = s1 * s2 求得两数相乘的积s3，然后再让s3在Text3中显示，应该写成：
s3 = s1 * s2
Text3.Text=s3
以上是我的意见；因为机子上装了.NET2003就装不了VB6.0了，所以程序没有运行过，但相信按以上改应该是可以的，你试试
------解决方案--------------------
另外，你选用的Text3_keypress事件感觉不是很恰当；建议再引入一个命令按钮Command1，在Command1_Click()事件里写这些代码更符合一般操作习惯