如果是判断是否存在于它的Text:
if InStr(Combo1.Text,str1) <>0 then msgbox “字符串存在Combo1中”
如果是判断是否存在于它的Item里:
Dim i%
Combo1.ListIndex = 0
str1 = "123121"
For i = 0 To Combo1.ListCount - 1
If InStr(Combo1.List(i), str1) <> 0 Then MsgBox "字符串存在Combo1中"
Combo1.ListIndex = i
Next