Option Compare Database
Option Explicit

Dim d As Object

Public Sub PutInCb()
    Dim strTest As String
    
    strTest = "Test!"
    
    Set d = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    d.SetText strTest
    d.PutInClipboard
End Sub

Public Sub GetFromCb()
    d.GetFromClipboard
    MsgBox d.GetText(1)
End Sub

Option Compare Database
Option Explicit

Public Sub Test()
    ' Пошлем текст в буфер обмена
    SetTextInClipboard "Тестик 1"
    ' Прочитаем из буфера то что послали
    MsgBox GetTextFromClipboard
End Sub

Public Sub SetTextInClipboard(s As String)
    Dim strTest As String
    
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText s
        .PutInClipboard
    End With
End Sub

Public Function GetTextFromClipboard() As String
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        GetTextFromClipboard = .GetText(1)
    End With
End Function