Dim B(1 To 12) As Integer satırının altına
dim N as integer
satırını ekleyerek dener misiniz?

---

emin değilim ama bu kod 13. haneyi yani kontrol basamağını hesaplama kodu olabilir