Строка как то непонятно обнуляется

Dim strFind, strFind2 As String

If Me.FindEdit.Enabled = True Then
    strFind = Trim(Me.FindEdit)
End If
If Me.FindEdit2.Enabled = True Then
    strFind2 = Trim(Me.FindEdit2)
End If

MsgBox strFind2 & " " & strFind       ' здесь сообщение со строками   strFind2 и strFind содержат какой то текст

Select Case True
    Case Flagok1
        MsgBox strFind     '  тут тоже всё ОК   в  strFind  есть текст
        Forms![frmBrowse]![pdFrmHome2].Form.Filter = "[CodeHome] Like " & "'" & strFind & "'"
        Forms![frmBrowse]![pdFrmHome2].Form.FilterOn = True
    Case Flagok2
        MsgBox strFind2  '   а вот тут значение strFind2 пропадает (идёт пустое сообщение)
        Forms![frmBrowse]![pdFrmHome2].Form.Filter = "[NumbHome] Like " & "'" & strFind2 & "'"
        Forms![frmBrowse]![pdFrmHome2].Form.FilterOn = True
    Case Else
        MsgBox "Ошибка."
End Select