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

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

             Return    找到就返回
        End If
    Next

         MessageBox.Show("未有匹配项目!","提示")   遍历后没有结果再提示
 
End If