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