If you want a one-liner, no extra Sub, Function or Dim, this is it (replace S with your string or variable):
S
CreateObject("htmlfile").ParentWindow.ClipboardData.SetData "text", CVar(S)