Modulo 11

[Allrounder]

Habe etwas gefunden, ich muss es nur noch in RPG umschreiben:

Sub modulo11()
    Dim Test$, i As Byte, Quer%, Prüf As Byte
    Test = "64010093"
    For i = 1 To Len(Test)
        Quer = Quer + Mid(Test, i, 1) * (i + 1)
    Next
    Prüf = Quer Mod 11
    If Prüf = 10 Then
        MsgBox "Fehlerhafter Code"
        Prüf = ""
        Test = "ungültig"
    End If
    
    MsgBox "Prüfziffer: " & Prüf & vbLf & vbLf & _
        "Code: " & Test & " " & Prüf
End Sub