Code:
 Dim qs As Byte  ' enthält am Ende die Quersumme

qs = 0
while zahl > 0 do
    qs = qs + zahl MOD 10
    zahl = zahl / 10
wend
MfG Mark