vb初学者，再次请教

Question

Private Sub Command1_Click()
On Error GoTo ww
Text3.Text = Text1.Text / Text2.Text
End Sub
ww:
If Error.Number = 11 Then
MsgBox "除数不能为零,请重新输入!", 16, "错误"
Else
MsgBox "出现其它错误", 16, "错误"
End If
Resume Next
End Sub
运行程序，出现标签未定义的错误

Answer 1

将
Text3.Text = Text1.Text / Text2.Text
End Sub
改为
Text3.Text = Text1.Text / Text2.Text
exit Sub
就行了

Answer 2

exit Sub
是不是结束上面一部分程序

Answer 3

End Sub
表示子程序定义完毕
exit Sub
表示退出子程序你的方法导致
ww:
If Error.Number = 11 Then
MsgBox "除数不能为零,请重新输入!", 16, "错误"
Else
MsgBox "出现其它错误", 16, "错误"
End If
Resume Next
End Sub上面程序块里所有的东西都未定义