哪位高手指点我一下VB语句啊

文本框的内容转化要加个val函数，
dim a %,b%,c%
a=val(textbox1)
b=val(textbox2)
c=val(textbox3)
textbox4=a/b*c
注意B不能为0，如果有要求可以这样写
dim a %,b%,c%
a=val(textbox1)
b=val(textbox2)
c=val(textbox3)
if b=0 then
b="请重新输入b的值！"
exit sub
end if
textbox4=a/b*c

textbox4.text=val(textbox1.text)/val(textbox2.text)*val(textbox3.text)

Dim textbox1,textbox12,textbox3,textbox4 As Integer

CommandButton.Click()
textbox4.value =textbox1.value/textbox2.value*textbox3.value

On error GoTo Cwcl:
'上面是如果出现错误则跳转到Cwcl去，因为有时候会碰到输入的数据不是数字
text4.text=cdbl(text1.text)/cdbl(text2.text)*cdbl(text3.text)
'上面的Cdbl()的意思是，将文本框里的字符转为双精度浮点型，用来计算
Cwcl:
'出现错误转到这里
If Err.Number <> 0 Then
msgbox "请检查您的输入"
end if
'上面的意思是，如果出现错误，就给这个提示，
'Err.Number为零表示无错误，不等于零表示有错误