vba将文本框中内容复制到剪贴板

网上查到结果：
Private Sub ListBox1_Click()
'需要引用“Microsoft Forms 2.0 Object Library”
  Dim MyData As New DataObject
  MyData.SetText ListBox1.Text
  MyData.PutInClipboard
  MsgBox MyData.GetText
End Sub

自己亲测如下使用：
Private Sub CommandButton2_Click()
  Dim MyData As New DataObject
  MyData.SetText Sheet1.TextBox1.Value
  MyData.PutInClipboard
End Sub