Paste Image In Textbox

[lol.xls]

I need to control a reports formatting. Can the following code be altered to paste screenshots from the clipboard rather than text?

Private Sub CommandButton1_Click()

    Dim CB As New DataObject
        
        On Error Resume Next
            CB.GetFromClipboard
            Me.TextBox1.Value = CB.GetText
            
            If Err Then MsgBox "The clipboard contains No Text.": Err.Clear
        On Error GoTo 0
        
End Sub