Aşağıdaki şekilde kodunuz değiştirin bakalım ne olacak.
Private Sub Komut0_Click()
On Error GoTo hata_var
If Err.Number = 11 Then GoTo hata_var ' Ben Bu Satırı Ekledim...
'If Metin1 / Metin3 = "division 00by zero" ise bir sonraki adıma geç
If Metin1 / Metin3 <> Metin1 \ Metin3 Then
MsgBox "geçersiz sonuç"
Else
Metin6 = Metin1 / Metin3
End If
Exit Sub
hata_var:
MsgBox "Sıfıra bölme yapamazsınız Ercan"
Resume Next ' Bu satırda hata mesajını verdikten sonra sonraki adıma geçmenizi saağlar...
End Sub
Kolay gelsin.