Найти и заменить в расширенном текстовом поле в VB.Net

Question

Я создал окно поиска-замены. Вот код для Заменить все кнопка

Private Sub BtnReplaceAll_Click(sender As Object, e As EventArgs) Handles BtnReplaceAll.Click

Try
            Dim currentPosition As Integer = frmmain.RichTextBox1.SelectionStart
            Dim currentSelect As Integer = frmmain.RichTextBox1.SelectionLength

            frmmain.RichTextBox1.Text = Replace(Trim(frmmain.RichTextBox1.Text), Trim(txtfind.Text), Trim(txtreplace.Text))

            frmmain.RichTextBox1.SelectionStart = currentPosition
            frmmain.RichTextBox1.SelectionLength = currentSelect
            frmmain.RichTextBox1.ScrollToCaret()
            frmmain.Focus()

            MsgBox("Replace completed", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Replace")

        Catch ex As Exception
            MsgBox("Unable to replace", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Replace")
        End Try
    End Sub

Работает нормально. Проблема только в том, что если я напишу какой-нибудь текст и вставлю изображение в RichTextBox1 и нажму кнопку Replace All, он заменяет текст, а также удаляет изображение из RichTextBox1. Как я могу предотвратить удаление изображения?