at name:
Dim lId As Long
Dim lR As Long
    lId = FormatIDForName(hWndOwner, sFormatName)
    If (lId &gt; 0) Then
        lR = IsClipboardFormatAvailable(lId)
        IsDataAvailableForFormatName = (lR &lt;&gt; 0)
    End If
End Property
Property Get IsDataAvailableForFormat( _
        ByVal lFormatId As Long _
    )
' Returns whether data is available for a given format id:
Dim lR As Long
    lR = IsClipboardFormatAvailable(lFormatId)
    IsDataAvailableForFormat = (lR &lt;&gt; 0)
End Property

Public Fun