在VB或VBA中，如何调用API复制文本到剪贴板

在VBA中经常使用以下语句，来复制文本到剪贴板，但有时会出错。
　 Dim MyData As New DataObject
     MyData.SetText sData, 1
     MyData.PutInClipboard

为了复制文本到剪贴板更加稳定，应该调用API来处理：

'复制文本到剪贴板
Public Sub CopyTextToClip(sData As String)
   If CBool(OpenClipboard(0)) Then
  
      Dim hMemHandle As Long, lpData As Long
     
      hMemHandle = GlobalAlloc(0, LenB(sData) + 2)
     
      If CBool(hMemHandle) Then
              
         lpData = GlobalLock(hMemHandle)
         If lpData <> 0 Then
           
            CopyMemory ByVal lpData, ByVal sData, LenB(sData)
            GlobalUnlock hMemHandle
            EmptyClipboard
            SetClipboardData CF_TEXT, hMemHandle
                       
         End If
     
      End If
  
      Call CloseClipboard
   End If

End Sub