Как удалить строки в тексте RTF с помощью Excel VBA?

Question

У меня есть код ниже, используемый для вставки текста RTF в элемент управления InkEdit.

Private Sub UserForm_Initialize()
    RangeToInkEdit Range("B1:B9"), Me.inkError
    Application.CutCopyMode = False
End Sub

Sub RangeToInkEdit(source As Range, target As InkEdit)
    source.Copy
    SendMessage inkError.hwnd, WM_PASTE, 0&, 0&

    Debug.Print inkError.TextRTF    
End Sub

По какой-то причине этот режим копирует линии сетки и вставляет светло-серую линию в InkEdit.

Как мне убрать эти строки, пожалуйста?

Прикрепленный исходный диапазон в Excel и форма InkEdit с вставленными ячейками.