Fusionner chaînes en alternant les lettres.

 Public Function fusion(ByVal mot1 As String, ByVal mot2 As String) As String
        
        Dim res As String = ""

        For i = 0 To mot1.Length And mot2.Length - 1
            mot1 = mot1.Substring(0)
            mot2 = mot2.Substring(0)
            res = mot1 & mot2

        Next
        Return res

 End Function

 Public Function tri(ByVal lexie As String) As String

        'On déclare la variable test qui est de type booleen qui prend la valeur "vraie".
        Dim Test As Boolean = True

        'On déclare la variable res qui est de type chaîne.
        Dim res As String

        'On déclare la variable car qui est de type caractère.
        Dim car As Char

        'On affecte à res la valeur de "lexie"
        res = lexie

        'booleen qui devient Vrai uniquement si le tri est correct.
        While Test = True

            'On affecte à "test" la valeur "faux"
            Test = False

            'boucle qui parcours le res tant que le booléen est à faux:

            'Pour i allant de res à la longueur du mot -2 (pourquoi pas -1 simplement car la comparaison du tri d'effectue sur 2 céllules donc à la fin du tri on se retrouverai en dehors du tableau) 
            For i = 0 To res.Length - 2

                'si la valeur de la cellule est supérieur à la cellule qui suit, les inverser:

                'Tant que res de i est suppérieur à res de i+1 Alors
                If res(i) > res(i + 1) Then

                    'On affecte à car la valeur de res de i.
                    car = res(i)
                    res = res.Remove(i, 1)
                    res = res.Insert(i + 1, car)
                    Test = True
                End If
            Next
        End While
        Console.ReadLine()

        Return res

    Public Function fusion(ByVal mot1 As String, ByVal mot2 As String) As String
        Dim res As String = ""
        For i = 0 To mot1.Length -1
            res &= mot1.ToCharArray(i, 1) & mot2.ToCharArray(i, 1)
        Next
        Return res
    End Function

   Public Function Fusion(ByVal Mot1 As String, ByVal Mot2 As String) As String
        'liste contenant les caractères mélangés, c'est moins contraignant qu'un tableau
        Dim debut As New List(Of Char)()
        
        Dim i As Integer
        'Mélange les lettres jusqu'à la fin du mot le plus court
        For i = 0 To Math.Min(Mot1.Length, Mot2.Length) - 1
            debut.Add(Mot1.Chars(i))
            debut.Add(Mot2.Chars(i))
        Next i

        'ajoute la fin du mot le plus long s'il y a
        Dim fin As String = ""
        Select Case Math.Sign(Mot1.Length - Mot2.Length)
            Case 1 'Mot1 est le plus long
                fin = Mot1.Substring(i)

            Case -1 'Mot2 est le plus long
                fin = Mot2.Substring(i)
        End Select

        Return String.Join("", debut) & fin
    End Function



'testé avec
Dim toto As String = Fusion("bonjour", "1234567")
Dim tota As String = Fusion("bonjour", "123456789")
Dim toti As String = Fusion("bonjour", "12345")

Public Function Fusionne(ByVal a As String, ByVal b As String)
        Dim res As String = ""
        Dim mot1 As List(Of Char) = a.ToList
        Dim mot2 As List(Of Char) = b.ToList
        Dim i As Integer
        If mot2.Count > mot1.Count Then
            For i = 0 To mot1.Count - 1
                res &= mot1(i) & mot2(i)
            Next
            res &= b.Substring(i, b.Length - i)
        Else
            For i = 0 To mot2.Count - 1
                res &= mot1(i) & mot2(i)
            Next
            res &= a.Substring(i, a.Length - i)
        End If
        Return res
    End Function