EXCEL VBA 文字をクリップボードにコピー

'
'　クリップボードへ貼り付ける。
'
Public Function subToClipbord(pstr文字列 As String)
    With CreateObject("Forms.TextBox.1")
        .MultiLine = True
        .Text = temp
        .SelStart = 0
        .SelLength = .TextLength
        .Copy
    End With
End Function