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

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（）都会删除小数部份而返回剩下的整