' Чтение из Clipboard'a

Public Function fnClipboardGet()

Dim clsNSA As sNSA.clsNSA

Set clsNSA = New sNSA.clsNSA

fnClipboardGet = clsNSA.fnClipboardGet

Set fDB = Nothing

End Function

' Копирование в Clipboard с предварительной очисткой последнего

Public Function fnClipboardSet(strX)

Dim clsNSA As sNSA.clsNSA

Set clsNSA = New sNSA.clsNSA

Call clsNSA.fnClipboardSet(strX)

Set fDB = Nothing

End Function