Attribute VB_Name = "chap2"
Public Sub PutOnClipboard(str As Variant)
    Dim MyDataObj As New DataObject
    MyDataObj.SetText Format(str)
    MyDataObj.PutInClipboard
End Sub
Sub c1code1()
CR = Chr(13) + Chr(10)
PutOnClipboard ("syms x;" + CR + " f=sin(x)/(x^2+4*x+3);" + CR + " y4=diff(y,x,4)")
End Sub
Sub c1code2()
CR = Chr(13) + Chr(10)
PutOnClipboard ("syms x;" + CR + " f=sin(x)/(x^2+4*x+3);" + CR + " tic, y4=diff(y,x,100); toc")
End Sub