Inséré un élément au milieux d'une chaîne de caractères

  Dim texte As String
        texte = "this is" & Environment.NewLine & _
            "a multiline" & Environment.NewLine & _
            "tooltip!"
        Me.ToolTip1.ToolTipTitle = " Info"
        Me.ToolTip1.SetToolTip(Me.Button1, texte)

Option Strict On
Imports System.Text.RegularExpressions
Public Class Form1
    'http://plasserre.developpez.com/cours/vb-net/?page=langage-vb2#LV-E-4-c
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim myValue As String
        Dim defaultValue As String
        defaultValue = "Si myLines() est un tableau de String, je veux ajouter ces lignes bout à bout en les séparant d'un retour à la ligne, On peut ajouter 2 paramètres permettant d'indiquer le nombre de ligne maximum et forcer l'élimination des lignes vides. "
        myValue = InputBox("Entrez le message que vous voulez afficher dans le ToolTip", "Afficher ToolTip", defaultValue, 100, 100)
        ' If user has clicked Cancel, set myValue to defaultValue 
        If myValue Is "" Then myValue = defaultValue
        ' On crée un Regex
        Dim R As New Regex("\s* \s*2")
        ' décomposition de ligne en champs
        Dim Nom As String() = R.Split(myValue)
        Dim myText As String = String.Join(ControlChars.CrLf, Nom)
        Me.ToolTip1.SetToolTip(Me.Button1, myText)
    End Sub
End Class

 'couper le texte tout les x caracteres
    Private Sub coupercaractere(ByVal chaine As String, ByVal x As Integer, ByVal text As TextBox)
        Dim a, i, countcaract As Integer
        countcaract = chaine.Length 'nombre de caracteres dans la chaine
        If x = 0 Or x > countcaract Then Exit Sub
        For i = x To chaine.Count - 1 Step x
            a = (InStr(i, chaine, " ")) 'chercher l'espace le plus près
            chaine = (chaine.Insert(a, "_ "))
        Next
        text.AppendText(chaine)
        afficher_texte()
    End Sub
    Private Sub afficher_texte()
        ' On crée un Regex
        Dim R As New Regex("\s*\s*_ ")
        ' décomposition de ligne en champs
        Dim Nom As String() = R.Split(TextBox1.Text)
        Dim myText As String = String.Join(ControlChars.CrLf, Nom)
        TextBox1.Text = myText
    End Sub

        coupercaractere(str, 50, TextBox1) 'mettre le texte sur x caracteres sans couper de mot (chaine, nbre caractères, TextBox)TextBox multiligne