Manipulando a área de transferência do Windows (ClipBoard)

Requisito:
Marcar a referência "Microsoft Forms Object Library".
Se tiver um form no VBA, a referência estará automaticamente marcada.

;-)

Dim area As DataObject
Dim texto As String

Sub colar_da_area_de_transferencia()
  
   Dim temp_area As New DataObject
   temp_area.GetFromClipboard
   MsgBox temp_area.GetText
  
End Sub

Sub limpa_area_transferencia()

   Dim temp_area As New DataObject
   temp_area.SetText ""
   temp_area.PutInClipboard

End Sub

Sub copiar_para_area_de_transferencia()

   Dim temp_area As New DataObject
   temp_area.SetText "Texto"
   temp_area.PutInClipboard

End Sub