Мгновенный поиск в VBA

[Aproad]

Добрый день.
Нашёл удобное для себя решение для мгновенного поиска, но столкнулся с проблемой - в окне поиска не печатаются пробелы. Подскажите, из-за чего такое имеет место быть?

Private Sub Поле40_Change()
Dim strFind As String
On Error GoTo Err_1
strFind = Nz(Me.Поле40.Text, "")
If strFind <> "" Then
Me.Filter = "[КатегорияТС] Like '" & strFind & "*'"
Me.FilterOn = True
Me.Поле40.SelStart = 200
Else
Me.FilterOn = False
End If
Exit Sub
Err_1:
MsgBox "Нет записей"
End Sub