vb Code:
  1. 'Demonstrates SetText, ContainsText, and GetText.
  2. Public Function SwapClipboardHtmlText( _
  3.     ByVal replacementHtmlText As String) As String
  4.  
  5.     Dim returnHtmlText As String = Nothing
  6.  
  7.     If (Clipboard.ContainsText(TextDataFormat.Html)) Then
  8.         returnHtmlText = Clipboard.GetText(TextDataFormat.Html)
  9.         Clipboard.SetText(replacementHtmlText, TextDataFormat.Html)
  10.     End If
  11.  
  12.     Return returnHtmlText
  13.  
  14. End Function

from MSDN