Copier et Coller le premier, ou second chiffre d'un résultat

J'ai écrit prés de 6000 lignes de code et ça tourne bien niveau calcul

• Un textbox et un label contiennent du texte.
• On fait des calculs, avec des nombres.
• Pour tes calculs, il est nécessaire de saisir du texte qui représente des nombres dans des textbox
• Une fois ces textes convertis en nombre, on n'utilise plus de controles (quel qu'il soit) comme point de départ d'un calcul.
• Que tu veuilles ou non afficher des résultats intermédiaires est complètement décoléré des calculs.

Public Class CalculKoriru

    Public Sub New(ParamArray Entiers() As Integer) 'entiers est passé avec le modifier ParamArray, on peut y mettre autant de nombre qu'on veut
        Dim somme As Integer = Entiers.Sum()
        Resultats = New List(Of String)
        Calcul(somme)
    End Sub

    Public Property Resultats As List(Of String)

    Public Property Resultat As Integer

    ''' <summary>
    ''' Function qui retourne de façon récursive la somme des chiffres d'un nombre et ainsi de suite tant que la somme dépasse 9
    ''' </summary>
    ''' <param name="Entier"></param>
    Private Sub Calcul(Entier As Integer)
        Dim res As List(Of Integer) = New List(Of Integer)()

        While Entier > 0
            res.Add(Entier Mod 10) 'le modulo est le chiffre le plus bas => 123 mod 10 = 3
            Entier = Entier \ 10 'la division euclidienne permet de décaller d'une décimale "vers la droite" => 123 devient 12
        End While
        res.Reverse() 'pour les avoirs dans le bon ordre

        If res.Count > 1 Then
            Dim somme As Integer = res.Sum()

            Resultats.Add(String.Format("{0} = {1}", String.Join(" + ", res), somme))

            Calcul(somme) 'on rend la function récursive
        Else
            Resultats.Add(String.Format("Résultat final: {0}", res.First()))
            Resultat = res.First()
        End If
    End Sub

End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim c As CalculKoriru
        c = New CalculKoriru(Convert.ToInt32(txtN1.Text), Convert.ToInt32(txtN2.Text), Convert.ToInt32(txtN3.Text)) 'on initie notre calcul

        lstResultat.DataSource = Nothing 'on reset au cas où il y aurait déjà eu un calcul
        lstResultat.DataSource = c.Resultats 'on affiche les calculs intermédiaires dans la listbox

        MessageBox.Show(String.Format("Le résultat est {0}", c.Resultat)) 'et on assène le coup ;)

    End Sub

Il va de soi que j'ai du créer 26 "Tbnom" concernant le nom des personnes, puis pour les 3 Prénoms de 15 labels chacun

Public Class CalculKoriru

    Public Sub New(Nom As String, Prenom As String, Naissance As DateTime)
        Resultats = New List(Of String)

        Dim entiers As List(Of Integer) = ConvertirTexte(Nom)
        Dim somme As Integer = entiers.Sum()
        Resultats.Add(String.Format("{0} = {1}", String.Join(" + ", entiers), somme))
        Calcul(somme)
    End Sub

    Public Property Resultats As List(Of String)

    Public Property Resultat As Integer

    ''' <summary>
    ''' Méthode qui calcule de façon récursive la somme des chiffres d'un nombre et ainsi de suite tant que la somme dépasse 9
    ''' </summary>
    ''' <param name="Entier"></param>
    Private Sub Calcul(Entier As Integer)
        Dim res As List(Of Integer) = New List(Of Integer)()

        While Entier > 0
            res.Add(Entier Mod 10) 'le modulo est le chiffre le plus bas => 123 mod 10 = 3
            Entier = Entier \ 10 'la division euclidienne permet de décaller d'une décimale "vers la droite" => 123 devient 12
        End While
        res.Reverse() 'pour les avoirs dans le bon ordre

        If res.Count > 1 Then
            Dim somme As Integer = res.Sum()

            Resultats.Add(String.Format("{0} = {1}", String.Join(" + ", res), somme))

            Calcul(somme) 'on rend la function récursive
        Else
            Resultats.Add(String.Format("Résultat final: {0}", res.First()))
            Resultat = res.First()
        End If
    End Sub

    ''' <summary>
    ''' Convertit le nom ou le prénom passé en paramètre en liste de nombre correspondant à chaque lettre
    ''' </summary>
    ''' <param name="Nom"></param>
    ''' <returns></returns>
    Private Function ConvertirTexte(Nom As String) As List(Of Integer)
        Dim res = New List(Of Integer)

        For Each c As Char In Nom

            Select Case c
                Case "A"c, "J"c, "S"c
                    res.Add(1)
                Case "B"c, "K"c, "T"c
                    res.Add(2)

                    'etc, je te laisse compléter
            End Select

            Resultats.Add(String.Format("La lettre {0} donne {1}", c, res.Last()))
        Next

        Return res
    End Function


End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim c As CalculKoriru
        c = New CalculKoriru(txtNom.Text, txtPrenom.Text, Convert.ToDateTime(txtNaissance.Text)) 'on initie notre calcul

        lstResultat.DataSource = Nothing 'on reset au cas où il y aurait déjà eu un calcul
        lstResultat.DataSource = c.Resultats 'on affiche les calculs intermédiaires dans la listbox

        MessageBox.Show(String.Format("Le résultat est {0}", c.Resultat)) 'et on assène le coup ;)

    End Sub