Dim Buf As Variant
  Dim Text As String
 
  If Clipboard.GetFormat(vbCFText) = True Then
    'Wenn in der Zwischenablage Text ist,
    'wird er in einem String gespeichert
    Text = Clipboard.GetText
  Else
    'ansonsten in einer Variant Variable
     On Error Resume Next
    Buf = Clipboard.GetData
  End If
 
  [...]
 
  If Text <> "" Then
    Clipboard.SetText Text
  Else
    Clipboard.SetData Buf
  End If