Code: Function SearchDesigner(ByVal strString As String) As String 'Dim errMsg As String Dim i As Integer Dim strstrString As String = strString.ToLower If Len(strString) = 0 Then Return "" For i = UBound(arDesigner) - 1 To 0 Step -1 Try If strstrString Like "*" & arDesigner(i, 0) & "*"...