Aidez moi a finir mon code .net

salut tous le monde

J'ai déjà posé le même problème ici mais personne ne me propose de quoi faire ... mais peut être que c'est moi qui n'explique pas correctement le problème, pour finir, je vous donne le code juste apès :).

le problème ce que la boucle fonctionne pour tout les caractères sauf pour le 1er qui est dans le tableau Tab1() ou même Tab2():

Le code:

Public Class Equation
'Dim a As String
'Dim b As Double
'Dim c As Double
'Dim d As Double
'Dim S As Double
Dim ? = 1
Dim ? = 1
Dim ? = 2
Dim ? = 3
Dim ? = 4
Dim ? = 5
Dim ? = 6
Dim ? = 7
Dim ? = 8
Dim ? = 9
Dim ? = 10
Dim ? = 20
Dim ? = 30
Dim ? = 40
Dim ? = 50
Dim ? = 60
Dim ? = 70
Dim ? = 80
Dim ? = 90
Dim ? = 100
Dim ? = 200
Dim ? = 300
Dim ? = 400
Dim ? = 500
Dim ? = 600
Dim ? = 700
Dim ? = 800
Dim ? = 900
Dim ? = 1000
Dim Tab1 As String() = {"?" , "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?"}
Dim Tab2 As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000}
'Dim leMessage As String = Nbre_a.Text '"Coucou c'est moi"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tab As New Hashtable 'Une HashTable pour stocker des clé/values (ici a/1, b/2, ...)
Dim leMessage As String = Nbre_a.Text '"Coucou c'est moi"
Dim somme As Integer = 0
Dim i As Integer = 0
'For Each caractère As Char In "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'On parcourt chaque lettre de l'alphabet
'For Each caractere As Char In "?????????"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 1
'Next
'For Each caractere As Char In "????????"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 10
'Next
'For Each caractere As Char In "???????????" 'On parcourt chaque lettre de l'alphabet
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 100
'Next
''msgbox(Tab1(2))
''tab.Add(Tab1(0), 0)
''Dim table As new HashTable()
''For i=0 To 28
'' For Each carh As Char In "????????????????????????????"
'' table.Add(carh, i)
'' i +=1
'' Next
''Next
'Dim myHash As Hashtable = CreateHashtable()

For Each caractere As Char In "????????????????????????????"
tab.Add(caractere, Tab2(i)) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
i += 1
Next

'Search an Item
'If tab.ContainsValue(Tab2(1)) Then
' MsgBox("????? ? ?????")
'Else
' MsgBox("????? ? ??? ?????")
'End If

'leMessage = leMessage.ToUpper 'On met tout en majuscule car sinon le caractère ne sera pas reconnu (a =/= A)

leMessage = Replace(leMessage, " ", "")
For Each car As Char In leMessage 'on parcourt le message
'For Each k As Integer In Tab1 'on parcourt le message
If tab.ContainsKey(car) Then 'on teste que le caractère parcouru fasse parti de notre Hashtable (ainsi on ne plantera pas sur des espaces ou caractères spéciaux)
'If Tab1(k) <> "" Then 'on teste que le caractère parcouru fasse parti de notre Hashtable (ainsi on ne plantera pas sur des espaces ou caractères spéciaux)
'if inStr(leMessage,"?") Then 'et ca retourne un variant.
'somme = somme + tab(car)
' somme = somme + Val(Tab1(0)) '+ tab(car) On recupére la valeur numérique associé à notre caractère et on l'ajoute à notre somme
' Else
somme = somme + tab(car)
'End If
End If
'somme = somme + Tab2(car)
'MsgBox(somme)
Next
'Dim kad As String = MsgBox(Mid(leMessage,1,Len(leMessage)))
'MsgBox(Tab2(0))
MsgBox(somme)
Nbre_c.Text = somme
End Sub

Private Sub Effacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Effacer.Click
Nbre_a.Text = ""
Nbre_b.Text = ""
Nbre_c.Text = ""
' Nbre_x.Text = ""
' Nbre_x3.Text = ""
End Sub

Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click
End
End Sub

Private Sub Equation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
Me.Hide()
'Accueil.ShowDialog()
End Sub

Private Sub BtnResoudre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnResoudre.Click
'pour le test ... pas encore
End Sub
Sub equation(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef x1 As Single, ByVal x2 As Single)
'pour le test ... pas encore
'For Each caractere As Char In "????????"
' tab.Add(caractere, i) 'On ajoute à la Hastable la lettre parcouru associé à notre compteur i
' i += 10
'Next
''Dim somme As Integer = 0
''Dim test As Integer
''for Each test In Tab
'' somme = somme + Val(test)
''next
'MsgBox(Tab(5))
Nbre_b.Text = MsgBox(Tab2(5))
End Sub
End Class

merci pour vous tous