dataobject の putinclipboard を使ってのクリップボードへの書き出しは、半角文字だけなら問題なんですが、漢字を含むと失敗するようです

回避方法をネットで探して試してみたので、メモしておきます

■cmdを使って書き出す方法

Private Sub コマンド18_Click()
    Dim s, cmd As String
    s = "おはよう"
    cmd = "cmd /c ""echo " & s & "| clip"""
    CreateObject("WScript.Shell").Run cmd, 0
End Sub

■テキストボックスのcopyを使って書き出す方法

Private Sub コマンド17_Click()
    Dim s As String
    s = "おはよう"
    With CreateObject("forms.TextBox.1")
     .MultiLine = True
     .Text = s
     .SelStart = 0
     .SelLength = .TextLength
     .Copy
    End With
End Sub