<pre>Public Function strLoadToClipboard(strSelected As String) As String
' Procedure : strLoadToClipboard
' Description: Load (Move) a string to the clipboard.
' Copyright: Chris Greaves Inc.
' Inputs: String
' Returns: STRING previous contents of the clipboard.
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.

' Define the clipboard object
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard

' Obtain existing contents
On Error Resume Next
strLoadToClipboard = MyData.GetText(1)

' Set new contents of clipboard.
Set MyData = New DataObject
MyData.SetText strSelected
MyData.PutInClipboard
'Sub TESTstrLoadToClipboard()
'' Enter Notepad and choose Edit, Paste to inspect existing contents, then ....
'MsgBox strLoadToClipboard("new contents 01")
'MsgBox strLoadToClipboard("new contents 02")
'End Sub

End Function

Public Function strClearClipboard() As String
' Procedure : strClearClipboard
' Description: Clear the contents of the clipboard.
' Copyright: Chris Greaves Inc.
' Inputs: NONE
' Returns: STRING previous contents of the clipboard.
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.

' This is merely a cover function for readability.
Call strLoadToClipboard("")
End Function
</pre>