Jeg skal kopiere tekst - hvad skal jeg bruge?

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

If Me.TextBox1 = "" Then

MsgBox "Der er intet at kopierer!"

Else

clipboard.SetText Me.TextBox1.Text
clipboard.PutInClipboard

MsgBox "Indholdet i TextBox1: " & TextBox1 & " er kopieret til udklipsholderen."

End If
End Sub