SizeClipBoard

Function getclipboardsize() As Double
dim a,x
x = Clipboard.GetData
a = LenB(x)
getclipboardsize = a
End Function