楼主参考一下：
Private Sub Command1_Click() Dim strText As String strText = Clipboard.GetText If (InStr(strText, "A")) Then '检查有没有字母 A MsgBox "剪贴板文本中有字符 A", 32 Else MsgBox "剪贴板文本中没有字符 A", 32 End IfEnd Sub
