如何将剪切板里头的数据一次性粘贴到Access窗体的列表框中?

Private Sub Command4_Click()
   Dim MyData As DataObject, MyStr As String
   Set MyData = New DataObject
   MyData.GetFromClipboard    '获得剪切板内容
   MyStr = MyData.GetText     '赋值给变量
   Dim I
   Dim A
   A = Split(MyStr, Chr(10))
   For I = 0 To UBound(A)
     If Len(Trim(A(I))) > 0 Then
       Me.List2.AddItem A(I)  '注意，要把List2的行来源类型改为“值列表”
     End If
   Next I
End Sub