使用VbScript将特定值复制到剪贴板

Question

下面我有我的困境。我需要将txtPreview.Value复制到剪贴板和UpdatePreview子的末尾。正如它在这里显示的那样，我有子UpdatePreview将特定数据和值从页面的其他部分泛洪到预览窗格，并在下面按钮运行所述子。我似乎无法获得正确的组合，以便将txtPreview.Value副本复制到剪贴板。

Sub UpdatePreview  
    txtPreview.Value =    "Customer/Agency " &_
    vbNewLine & Customer.Value & " / " & AgencyName.value & " #" & AgencyID.value &_
                     vbNewLine &_
                     vbNewLine & "1. QUESTIONS/NEEDS/VALUE" &_
                     vbNewLine & issue1.value &_
                     vbNewLine &_
                     vbNewLine & "2. TROUBLESHOOTING" &_
                     vbNewLine & issue2.value &_
                     vbNewLine &_
                     vbNewLine & "3. SOLUTIONS " &_
                     vbNewLine & issue3.value &_
                     vbNewLine &_
                     vbNewLine & "4. OUTCOME  " &_
                     vbNewLine & issue4.value &_
                     vbNewLine &_
                     vbNewLine                   
End Sub
<input type="button" class="note" value="Preview"  OnClick=UpdatePreview>