Alternance de chaine de caractère

Sub test()
Dim taille As Integer
Dim str As String
Dim result As String
Dim G As Integer
Dim D As Integer

str = "bonjour"
taille = Len(str)
G = 0
D = taille

'on transforme le mot en array
arrStr = split_string_to_char(str)

'On fait une boucle de 1 à "nombre de caractères dans le mot"
For i = 1 To taille
    
    'on vérifie si on est "pair" ou "impaire"
    If i Mod 2 Then
        'si i est impaire, on prend à Gauche
        result = result & arrStr(G)
        G = G + 1
    Else
        'si i est Paire, on prend à Droite
         result = result & arrStr(D - 1)
         D = D - 1
    End If

Next
MsgBox (result)

End Sub

Function split_string_to_char(text) As String()

   Dim chars() As String
   For char_count = 1 To Len(text)
      ReDim Preserve chars(char_count - 1)
      chars(char_count - 1) = Mid(text, char_count, 1)
   Next
   split_string_to_char = chars
End Function