Set, get, append, and clear your clipboard text.

ClipBoardText.vbs

Class ClipBoardText
  REM @author: Jeremy England ( SimplyCoded )
  REM @info: Set, get, append, and clear your clipboard text.
  REM @mini: Class ClipBoardText:Property Get Text:Text=CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text"):If IsNull(Text)Then Text="":End If:End Property:Property Let Text(s):CreateObject("WScript.Shell").Run "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','"&Replace(Replace(s,"'","\\u0027"),"""","\\u0022")&"');close()"")",0,True:End Property:Sub ClearText:Text="":End Sub:Sub AddText(s):Text=Text&s:End Sub:End Class
  Property Get Text
    Text = CreateObject( "HTMLFile" ).parentWindow.clipboardData.getData( "Text" )
    If IsNull( Text )Then Text = ""
  End Property

  Property Let Text( str )
    Call CreateObject( "WScript.Shell" ).Run( _
      "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','" & _
      Replace( Replace(str, "'", "\\u0027"), """", "\\u0022" ) & "');close()"")", 0, True _
    )
  End Property

  Sub ClearText
    Text = ""
  End Sub

  Sub AddText( str )
    Text = Text & str 
  End Sub
End Class

usage.vbs

'You can create an environment variable and store the mini class in there if desired.
  'WindowsKey + r > rundll32 sysdm.cpl,EditEnvironmentVariables 
  'Create a user environment variable with the mini class as the value
  'Load it into your script like so:  
  'Execute(CreateObject("WScript.Shell").Environment("User")("YOUR_VAR_NAME"))

'Otherwise just copy the mini or full version into your scripts, and use.
Class ClipBoardText:Property Get Text:Text=CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text"):If IsNull(Text)Then Text="":End If:End Property:Property Let Text(s):CreateObject("WScript.Shell").Run "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','"&Replace(Replace(s,"'","\\u0027"),"""","\\u0022")&"');close()"")",0,True:End Property:Sub ClearText:Text="":End Sub:Sub AddText(s):Text=Text&s:End Sub:End Class
  
'Create an instance of the ClipBoardText Class
Set clip = New ClipBoardText

'Clear the clipboard text
clip.ClearText()

'Set the clipboard text
clip.Text = "Hello, World!"

'Append to the clipboard text
clip.AddText( " How are you?" )

'Get the clipboard text
result = clip.Text