Function EAN128_CHKDGT(ByVal EAN_CODE As String) As String
'
Dim I As Integer = 0
Dim S As Integer = 0
'
'/* calcul check */
'
For I = 1 To Len(EAN_CODE) - 1 Step 2
S += Val(Mid(EAN_CODE, I, 1))
S += Val(Mid(EAN_CODE, I + 1, 1)) * 3
Next
'
Return Format((10 - (S Mod 10)), "0")
'
End Function
'