Sn:accessman
Aşağıdaki kodları denermisiniz?

Private Sub Komut0_Click()

On Error GoTo hata_var

Metin6 = CSng(Metin1) / CSng(Metin3)

On Error GoTo 0

On Error Resume Next

Metin6 = CSng(Metin1) / CSng(Metin3)



   If Err.Number = 11 Then

   MsgBox "Sıfıra bölme yapamazsınız"

Err.Clear

End If

Exit Sub

hata_var:

Select Case Err.Number

Case 11

MsgBox "Sıfıra Bölmeye Çalıştınız"

Metin6 = CSng(Metin1) + CSng(Metin3)

MsgBox "Toplama İşlemi Yapılmıştır."

Case Else

Metin6 = CSng(Metin1) - CSng(Metin3)

End Select

Resume Next

End Sub