単純に、これじゃ駄目なんでしょうね。(^_^;
Private Sub Button1_Click( _ ByVal sender As System.Object, ByVal e As System.EventArgs _ ) Handles Button1.Click TextBox1.Text = _ TextBox1.Text.Insert(TextBox1.SelectionStart, "<br>") End Sub