Как сохранить в буфер текст с форматированием?

Question

[Sgr_A]

Делаю таким образом:

Sub Test()

Dim T As Task, Notes As String

For Each T In ActiveSelection.Tasks
 Notes = T.Notes
 PutOnClipboard (Notes)

Next T

End Sub

Public Sub PutOnClipboard(Obj As Variant)

    Dim MyDataObj As New DataObject
    MyDataObj.SetText Obj
    MyDataObj.PutInClipboard

End Sub

Все сохраняется, но только сплошным текстом. Никак не разберусь как сохранить с форматированием.