Decouper une chaine de caractère tous les 8 caracteres

Dim monTab()
Dim monString$
Dim i&, k&

monString = "La phrase que j'aimerais découper en partie de 8 caractères"
ReDim monTab(Round(Len(monString) / 8))

For i = 1 To Len(monString) Step 8
    monTab(k) = Mid(monString, i, 8)
    k = k + 1
Next i
For i = 0 To UBound(monTab)
    Debug.Print monTab(i)
Next i

Dim monString$, i&, FinBoucle&

monString = TextBox1.Text
FinBoucle = Len(monString) + Len(monString) Mod 9
For i = 8 To FinBoucle Step 9
    monString = monString.Substring(0, i) & "_" & monString.Substring(Len(monString) - i), i), 
Next i
TextBox1.Text = monString

 Dim monTab() As String
        Dim monString As String
        Dim i, k As Integer

        monString = "Laphrasequejaimeraisdécouperenpartiede8caractères" 'j'ai supprimé les espaces pour la comprehension
        ReDim monTab(CInt(Math.Round(Len(monString) / 8)))

        For i = 1 To Len(monString) Step 8
            monTab(k) = Mid(monString, i, 8)
            k = k + 1
        Next i
        For i = 0 To UBound(monTab)
            TextBox1.AppendText(monTab(i) & " ")
        Next i

 Dim monString As String
        Dim i, FinBoucle As Integer

        monString = "Laphrasequejaimeraisdécouperenpartiede8caractères"
        FinBoucle = Len(monString) + Len(monString) Mod 9
        For i = 8 To Len(monString) Step 9
            monString = monString.Substring(0, i) & "_" & monString.Substring(Len(monString) - i, i)
        Next i
        TextBox1.Text = monString

toto = "Voiciunephrasequin'estpasd'unelonhueurmultipledeladécoupe.Lecodeseraitbienplussimplesimultiplededeladécoupe."
  decoupe = 8
  ou = Len(toto) - Len(toto) Mod decoupe
  toto1 = Left(toto, ou)
  flt = " " & String(decoupe, "@")
  Do While Len(flt) < Len(toto1) + Len(toto) Mod decoupe
    flt = flt & flt
  Loop
  MsgBox Trim(Format(toto1, flt) & " " & Mid(toto, ou + 1))
 

 toto = "benvoilalaphrasequel'onvoudraitmettreenmorceauxde#decoupecaractères"
  decoupe = 8 ' pour dire tous les combien découper
  titi = Split(StrConv(toto, vbUnicode), Chr(0))
  For i = decoupe - 1 To Len(toto) Step decoupe
   titi(i) = titi(i) & " "
  Next
  MsgBox Join(titi, "")

source = 'exemple de contenu textuel inserer par un utilisateur lambda'

emplacement = 0
resultat = ''
boucle = 0


while emplacement < len(source):

    lettre = source[emplacement]
    resultat = resultat + lettre


    emplacement = emplacement + 1
    boucle = boucle + 1

    if boucle == 8:
        print(resultat)
        resultat = ''

        boucle = 0

    if emplacement == 60 and boucle < 8:
        print(resultat)