如何在TextBox (屬性 MultiLine=Ture)中的任何一個位置填入文字??

剛在論壇上看到有人在問
----------------------------------------------
需求問提如下:
(1)按Button1則在 TextBox中的任何位置填入 ##name##
(2)按Button2則在 TextBox中的任何位置填入 ##TicketNo##

以下為TextBox的文字內容:

親愛的 ##name## 您好：
本單號 ##TicketNo##，經指派作業，需請您協助處理
敬請處理，謝謝您的合作．

----------------------------------------------
以下是我的程式和畫面

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = "123456"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim insertText = vbCrLf

        Dim insertPos As Integer = TextBox1.SelectionStart

        TextBox1.Text = TextBox1.Text.Insert(insertPos, insertText)

        TextBox1.SelectionStart = insertPos + insertText.Length

    End Sub

End Class