0 で除算しました。(エラー番号：11)

---

Sub Sample1()
    Dim N As Long
    N = 120 / 0
End Sub

文字通り、0で割り算してしまいましたエラー。

修正も簡単ですね。0だったら割り算しなければいいんですから。