Colar texto na posição do cursor (ex.: campo memo)

Coloque o seguinte código em um módulo:

Sub CopyTextToClipboard(ByVal inText As String)
 Dim objClipboard As Object
 Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 objClipboard.SetText inText
 objClipboard.PutInClipboard

 Set objClipboard = Nothing
End Sub

Function GetTextFromClipboard() As String
 Dim objClipboard As Object
 Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 objClipboard.GetFromClipboard
 GetTextFromClipboard = objClipboard.GetText

 Set objClipboard = Nothing
End Function


Nos eventos do seu campo Caixa de Texto:
> Ao liberar mouse coloque
Pos = Me.SEUCAMPO.SelStart

> Ao liberar tecla
Pos = Me.SEUCAMPO.SelStart


No formulário coloque:
Option Explicit
Dim Pos As Integer



Coloque em um botão, por exemplo:
CopyTextToClipboard "Seu texto copiado para a área de transferência"
Me.SEUCAMPO.SetFocus
Me.SEUCAMPO.SelLength = Pos
Me.SEUCAMPO.SelStart = Pos
   SendKeys "^v"

Pode ser útil para mais alguém.

Agradecimentos ao criquio (peguei a ideia dele a partir da dúvida de outro usuário: http://maximoaccess.forumeiros.com/t3595-resolvidoprocurar-posicao-do-cursor)