Copiar el contenido de un Textbox al ClipBoard, Vba Excel

Necesito capturar una información que se genera en un textbox mediante un CommandButton, este es el código que estoy utilizando, pero al momento de pegar en otro lado no pega nada.

Private Sub CommandButton49_Click() 

     Dim cp As String

     Set objdata = New DataObject

     cp = Textbox 23.Text

     objdata.SetText cp 

     objdata.PutInClipboard

     objdata.GetFromClipboard

     cp = "" 

     cp = objdata.GetText

End Sub

Este código lo tengo en el formulario.