Hi,

Replace

Code:
SearchKeys = "{""" & Replace(Replace(SearchKeys, Chr(10), """;"""), Chr(13), vbNullString) & """}"
with

Code:
x = Split(SearchKeys, Chr(10))
SearchKeys = vbNullString
For j = 0 To UBound(x)
    If Len(Trim$(Replace(x(j), Chr(13), vbNullString))) Then
        SearchKeys = SearchKeys & """;""" & Trim$(Replace(x(j), Chr(13), vbNullString))
    End If
Next
SearchKeys = "{""" & Mid$(SearchKeys, 4) & """}"