If e.KeyCode = Keys.Enter Then
            e.Handled = True
            FText.Text = Microsoft.VisualBasic.Left(FText.Text, _
              FText.SelectionStart) & vbCrLf & "Text" & Mid(FText.Text, _
              FText.SelectionStart)
        End If

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        FText.SelectedText = "" + FText.SelectedText + ""
    End Sub