如何在 Access VBA 中计算 Mod-10 校验位？

如何在 Access VBA 中计算 Mod-10 校验位？

请使用以下代码片段作为起点：

Public Function CalculateMod10(data As String) As String

Dim tbc As TBarCode11Lib.TBarCode11
Set tbc = CreateObject("TBarCode11.TBarCode11")
Dim cd As String
cd = tbc.CalculateCheckdigits(eCDMod10, data)
CalculateMod10 = Left(cd, 1)

End Function