expression.ScratchPadContentsAsText As String
where expression is a variable that represents a Productivity Object
expression.ScratchPadContentsAsText As String
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