Replace komutu ile karakter değiştirme

Arkadaşlar;

Aşağıdaki linkte bulunan Sayınmehmetdemiral beyin örneğini indirdim. Kayıt sayısı fazlalaşınca hata verdi. Biraz araştırdım;

Private Sub Komut4_Click()

Dim i, ilk, son As Integer
Dim adi As String

kısmında bulunan integer'i long ile değişince çalıştı. Taki 238. kayıta gelinceye kadar. Bu seferde string kısmında hata verdi.

Değişiklik yaptığım örnek ektedir.
Nasıl çözebilirim?
https://accesstr.net/konu-tablo-da-turkc...irmek.html

Boş Kayıtlarda sorun yaratmaktadır. ISNULL kontrolü eklenirse sorun yaratmaz...

Sayın POWER
Teşekkür ederim. Dediğiniz gibi düzeldi.