How to save text with formatting to clipboard?

Question

Visual Basic

I do it this way:

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

Everything is saved, but only in solid text. I can't figure out how to save with formatting.