Coloque una macro en mi codigo que me ayudara a copiar mas rapido un texto de un textbox para simplemente pegarla en un chat de whatsapp por ejemplo, al principio me funciono pero luego ya no, le doy a copiar y no me copia el mensaje, sino que me aparece estos simbolos , cuando reviso el portapapeles de excel me aparece que el texto se copio, pero cuando intento pegarlo me aparecen los simbos
Private Sub COPIAR_PP_Click()
Dim PP As New MSForms.DataObject
Dim texto1 As String
If TXT_MENSAJE.Text <> Empty Then
texto1 = CStr(TXT_MENSAJE.Text)
Set PP = New DataObject
PP.SetText texto1
PP.PutInClipboard
End If
End sub