我用vb编的几条if语句有错误

1.函数调用如果没有取返回值，那么不要加括号
2.Text2.SetFocus
SetFocus是text的方法，不是Text2.Text的参数
3.if语句如果执行体内有多句，需要end if
4.是else 不是Eles

Private Sub Command4_Click()
If Val(Text2.Text) = 0 Then
MsgBox "除数不可为零", vbOKOnly, "警告"
Text2.SetFocus
Else

result = Val(Text1.Text) / Val(Text2.Text)
strresult = Str(result)
Text3.Text = strresult
Text1.SetFocus
End If
End Sub

第六行是"else" 你写错们置了.. 还有缺出IF 结束语句 . 还有第3行也不知道是什么意思~~~~setfocus 是不是没有定义呀 在试试 要光弄除法的好弄呀 你不知道你做的什么

If Val(Text2.Text) = 0 Then
MsgBox("除数不可为零",vbOKOnly,"警告")
Text2.SetFocus
Eles
Text3.Text= cstr(Val(Text1.Text) / Val(Text2.Text) )
Text1.SetFocus
end if

else`