主题：这段代码该怎么改？哪位老师来帮帮我啊！

Dim str As String = e.Sender.text
If str > "" Then
    For Each cbl As String In e.Sender.ComboList
        If cbl Like "'*" & str & "*'" Then
            e.Sender.text = cbl
        Else
            MessageBox.Show("未有匹配项目!","提示")
            Return
        End If
    Next
End If

好像红色的代码有错误，它老弹出对话框！