çalışmanızda option Explicit kullandığınız için her değişkeni tanımlamanız gerekiyor
burada x tanımlanmadığından hata veriyor ya option Explicit satırını silmelisiniz yada
Dim satırlarının altına Dim x as long benzeri yeni bir satır eklemelisiniz

---

aynı şey vrgulkes içinde geçerli

---

Dim x as long

dim VrgulKes as byte

---

ama bence kod tek seferlik çalışacağından en baştaki option Explicit satırına gerek yok