Italian Array con indice letterale

    Dim Indice() As String= Array As String("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
    Dim Value() As Int = Array As Int (10,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,34,35,36,37,38)

'Compute the checkdigit as per ISO 6346 on eqn (equipment number)
'No check if eqn is a valid equipment number
Sub Compute6346CD(eqn As String) As Char
   Dim const s As String = "0123456789A?BCDEFGHIJK?LMNOPQRSTU?VWXYZ"
   Dim i, total As Int = 0
   For j = 0 To eqn.Length-1
     total = total + (s.IndexOf(eqn.CharAt(j)) * Power(2, j))
   Next
   i = (total Mod 11)
   If i = 10 Then Return 0 Else Return i
End Sub

'Check whether code is a valid ISO 6346 code complete of its checkdigit
Sub IsValid6346Code(code As String) As Boolean
   Return Regex.IsMatch("\w{3}[UJZ]\d{7}",code)
End Sub

'Check whether eqn is a valid equipment number based on ISO 6346 rules
Sub IsValid6346EN(eqn As String) As Boolean
   Return Regex.IsMatch("\w{3}[UJZ]\d{6}",eqn)
End Sub

i = (total Mod 11)
If i = 10 Then Return 0 Else Return i

' I risultato con mod 11 saranno un numero da 0..10 
'... se a sua volta fai un altro mod il numero 10 diventa 0... come vuole la regola
return ((total Mod 11) mod 10)

    Dim n, total As Int
    total = 53741
  
    ' 1
    n = (total Mod 11)
    If n = 10 Then n = 0

    ' 2
    n = ((total Mod 11) Mod 10)

    ' 3
    n = total - Floor(total / 11) * 11

public Sub ISO_6346_Ck(CtrNum As String) As Boolean
    Dim acc, ax As Int
    Dim s As String
    Dim lastnum, cnt, checkdigit As Int
    Dim Indice() As String= Array As String("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
    Dim Value() As Int = Array As Int (0,1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,34,35,36,37,38)
    Dim Pow() As Int = Array As Int (1,2,4,8,16,32,64,128,256,512)
    Dim M As Map
    M.Initialize
    acc = 0
    For cnt= 0 To Indice.Length - 1
        M.Put(Indice(cnt),Value(cnt))
    Next
    For cnt = 0  To 9
        s = CtrNum.CharAt(cnt)
        ax = M.Get(s) * Pow(cnt)
        acc = acc + ax
    Next
    lastnum = ((acc Mod 11) Mod 10)
    checkdigit = Asc(CtrNum.CharAt(10))-48
    If (CtrNum.Length = 11) And (lastnum = checkdigit) Then
        Return(True)
    End If
    Return (False)
End Sub

public Sub ISO_6346_Ck(CtrNum As String) As Boolean
    Dim acc, ax As Int
    Dim lastnum, cnt, checkdigit As Int
    Dim Indice As List= Array As String("0","1","2","3","4","5","6","7","8","9","A","?","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","?","V","W","X","Y","Z")
    Dim Pow() As Int = Array As Int (1,2,4,8,16,32,64,128,256,512)

    For cnt = 0  To 9
        ax = Indice.IndexOf(CtrNum.CharAt(cnt)) * Pow(cnt)
        acc = acc + ax
    Next
    lastnum = ((acc Mod 11) Mod 10)
    checkdigit = Asc(CtrNum.CharAt(10))-48
    If (CtrNum.Length = 11) And (lastnum = checkdigit) Then    Return(True) Else Return (False)
End Sub

        s = CtrNum.CharAt(cnt)
ax = Indice.IndexOf(s) * Pow(cnt)

ax = Indice.IndexOf(CtrNum.CharAt(cnt)) * Pow(cnt)

Dim Indice AsList= ArrayAsString("0","1","2","3","4","5","6","7","8","9","A","?","B","C","D","E","F","G","H","I","J","K","?","L","M","N","O","P","Q","R","S","T","U","?","V","W","X","Y","Z")

 ax = Indice.IndexOf(CtrNum.Substring2(cnt,cnt+1)) * Pow(cnt)