請修改以下vba code , 按下button2 後, 彈出 Clipboard 內容


```
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
    Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
    Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
    Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As LongPtr
    Private Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As LongPtr) As LongPtr
    Private Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
    Private Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Long
    Private Declare PtrSafe Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (ByVal lpString1 As LongPtr, ByVal lpString2 As LongPtr) As LongPtr
#Else
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function EmptyClipboard Lib "user32" () As Long
    Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
    Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
    Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
    Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
    Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long
#End If

Const GMEM_MOVEABLE = &H2
Const CF_UNICODETEXT = 13

Sub CopyToClipboard(ByVal Text As String)
    Dim hGlobalMemory As LongPtr
    Dim lpGlobalMemory As LongPtr
    Dim hText As LongPtr
    
    ' ?????
    If OpenClipboard(0&) Then
        ' ?????
        EmptyClipboard
        
        ' ?????
        hGlobalMemory = GlobalAlloc(GMEM_MOVEABLE, (Len(Text) + 1) * 2)
        If hGlobalMemory <> 0 Then
            ' ?????
            lpGlobalMemory = GlobalLock(hGlobalMemory)
            If lpGlobalMemory <> 0 Then
                ' ????????
                lstrcpy lpGlobalMemory, StrPtr(Text)
                
                ' ?????
                GlobalUnlock hGlobalMemory
                
                ' ??????????
                hText = SetClipboardData(CF_UNICODETEXT, hGlobalMemory)
            End If
        End If
        
        ' ?????
        CloseClipboard
    End If
End Sub

Private Sub CommandButton1_Click()
    ' ???? TextBox ??? TextBox1
    Dim textBoxContent As String
    Dim myString As String
     
     If Selection.Count = 1 Then
    myString = "Hi Localised," & vbNewLine & vbNewLine & "Due to missing parcel in the network, we have complete re-packed and shipped on 12th Nov. " & _
    vbNewLine & "New FedEx tracking for " & Left(Selection.Value, 14) & " is " & Selection.Offset(0, 1).Value & " for your tracking. Thanks"
    
    
    TextBox1.Text = Selection.Value
    
    textBoxContent = myString
    End If
    
    
    
    
    ' ????????????
    CopyToClipboard textBoxContent
End Sub

Private Sub CommandButton2_Click()

End Sub
```