如何在ms-access 2007 VBA中计算mod97？

Function Mod97(ByVal number As String) As Integer
    Dim result As Integer
    Dim i As Integer
    Dim digit As Integer
    
    result = 0
    
    For i = 1 To Len(number)
        digit = Asc(Mid(number, i, 1)) - Asc("0")
        result = (result * 10 + digit) Mod 97
    Next i
    
    Mod97 = result
End Function

Dim number As String
Dim result As Integer

number = "1234567890" ' 替换为你要计算的数字字符串
result = Mod97(number)

MsgBox "Mod97结果为: " & result