Visual basic, mi a hiba?

A Szoveget_General függvény segítségével generáljunk egy 2000 karakter hosszú szöveges adatot 1-es Seed értékkel, majd határozzuk meg a sztringben található számjegy karaktereknek, mint egyjegyű számoknak az összegét!

Function Szoveget_General(Hossz As Integer, Seed As Integer) As String

Const Kisbetuk = "aábcdeéfghiíjklmnoóöőpqrstuúüűvwxyz"

Const Szamjegyek = "0123456789"

Const Egyeb = "'!%$=<>()\/[]#&@{}<,;:.?+-_ "

Dim i As Integer, db As Integer, Karakterek As String, st As String

Rnd -1

Randomize Seed

Karakterek = Kisbetuk + UCase(Kisbetuk) + Szamjegyek + Egyeb

db = Len(Karakterek)

st = ""

For i = 1 To Hossz

st = st + Mid(Karakterek, Int(Rnd * db) + 1, 1)

Next

Szoveget_General = st

End Function

Sub Mintafeladat2()

Const n = 2000

Dim st As String

Dim db As Long

Dim i As Integer, kar As String

st = Szoveget_General(n, 2)

Debug.Print "Az adat:"; st

db = 0

For i = 1 To Len(st)

kar = Mid(st, i, 1)

If kar >= 0 And kar <= 9 Then

db = db + CByte(kar)

End If

Next

Debug.Print "Az összeg:"; db

MsgBox "Az adat és az eredmény az Immediate ablakban látható!"

End Sub