Mod 11 - Check Digit Barcode

[pr4t3ek]

Hi,
I need a excel formula or a excel function which can perform the info on this website http://www.pgrocer.net/Cis51/mod11.html

[MaczaQ]

Hello,

I used discription from site:
http://www.kfupm.edu.sa/cim/OCW/ACCT...alculation.pdf

and here you are:

Function mod11(digStr As String) As String
Dim L, sum, memo, weight As Integer
L = Len(digStr)
sum = 0
memo = 0

For i = 1 To L
 weight = L - i + 2
 sum = sum + CInt(Mid(digStr, i, 1)) * weight
Next i
memo = sum Mod 11
If memo = 0 Then
  mod11 = digStr & memo
ElseIf memo = 1 Then
  mod11 = digStr & "X"
Else
  mod11 = digStr & CStr(11 - memo)
End If
End Function

Best Regards