Şöyle bir şey yaptım ama "Invalid use of null " hatası alıyorum  aşağıdaki kodda yanlışlık var mı?

KYT0002 diye artarak  kayıt üretmesi lazım daha doğrusu tablonun en son kaytında ID alanında değer yoksa hata veriyor.

module

[vb]Function nurmaraAl(yb As String) As String
   Dim donenDeger As String
   Dim i As Integer
   donenDeger = ""
   For i = 1 To Len(yb)
       If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then
           donenDeger = donenDeger + Mid(yb, i, 1)