Private Function GetCB()    '从剪贴板获取数据
    With CreateObject("Forms.TextBox.1")
        .MultiLine = True
        If .CanPaste = True Then .Paste
        GetCB = .Text
    End With
End Function