クリップボードに文字列を格納

'*******************************
' クリップボードに文字列を格納
'*******************************
Public Sub ClipBoadCopy(ByVal str As String)
    With CreateObject("Forms.TextBox.1")
        .MultiLine = True
        .Text = str
        .SelStart = 0
        .SelLength = .TextLength
        .Copy
    End With
End Sub