在A中〔输入框〕随便输入一个文字，若输入的这个文字=“甲、乙、丙”中其中一个返回1，否则返回0
在B中〔输入框〕随便输入一个文字，若输入的这个文字=“戊、己、庚”中其中一个返回1，否则返回0
点击判断按钮
若 A中的返回结果是1 并且 B中的返回结果是1，则输出“比对成功”
其他情况全部输出“查无信息”

Private Sub Command1_Click()
  bz = 0
  Select Case Text1.Text
  Case "甲", "乙", "丙"
  bz = 1
  Case Else
  bz = 0
  End Select
  Select Case Text2.Text
  Case "戊", "己", "庚"
  bz = bz + 1
  Case Else
  bz = 0
  End Select
  If bz = 2 Then
    MsgBox "配对成功"
  Else
    MsgBox "查无信息"
  End If
End Sub

谢谢大神

Private Sub Command1_Click()
if  instr("甲乙丙",text1.text）>0 and instr("戊己庚",text2.text）>0 then
   MsgBox "配对成功"
  Else
    MsgBox "查无信息"
  End If
End Sub

楼上方法更好

你好，能不能限制成 只提取 其中一个文字 做比较呢？