iyi günler
hayırlı arifeler

eklediğim örnekte iki metin kutusuna bölme işlemi uygulanıyor
bölen "0" ise division by zero uyarısı veriyor

Private Sub Komut0_Click()

On Error GoTo hata_var

'If Metin1 / Metin3 = "division by zero" ise bir sonraki adıma geç

If Metin1 / Metin3 <> Metin1 \ Metin3 Then

MsgBox "geçersiz sonuç"

Else

Metin6 = Metin1 / Metin3

End If



hata_var:

   If Err.Number = 11 Then MsgBox "Sıfıra bölme yapamazsınız"

End Sub

If Err.Number = 11 Then MsgB