expression.ScratchPadContents As String
where expression is a variable that represents a Productivity Object
expression.ScratchPadContents As String
To empty the Scratch Pad contents, pass in an empty string. (Do not pass in Nothing.)
Sub GetContentFromScratchpad() Dim contents As String 'Load some content into the scratch pad ThisIbmTerminal.Productivity.ScratchPadContents = "Some text" 'Retrieve the content in rich text format contents = ThisIbmTerminal.Productivity.ScratchPadContents Debug.Print "Rich text format: " + contents 'Now retreive the content as plain text contents = ThisIbmTerminal.Productivity.ScratchPadContentsAsText Debug.Print "Plain text format: " + contents End Sub