Visual basic калькулятор

visual basic калькулятор
калькулятор. проблема с делением на 0.
Private Sub btnShare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShare.Click
Dim i1 As Integer, i2 As Integer, i3 As Integer
lblOper.Text = "Деление"
i1 = Val(txt1.Text)
i2 = Val(txt2.Text)
i3 = i1 / i2
txtResult.Text = Str(i3)
End Sub
что нужно добавить или изменить

  • Нужно добавить проверку на 0 в знаменателе. Если ноль - выводить сообщение об ошибке.
  • Мда этот тоже самое что достать мумию из саркофага и заставить ее считать бананы на пальме.
  • Обработчик ошибок в процедуру нужно добавить: On Error GoTo err_sub, а после строки с указанной меткой вывести MsgBox с описанием ошибки.