Ms Access programming problem

Microsoft Access
Need help to filter form with 1"
Can pay for an hour.

Private Sub Ctl1in_btn_Click()
Me.Size = "1"
Call FilterParts("1")

End Sub
Private Sub FilterParts(txtsearch)

On Error GoTo EH
strfilter = " DESCRIPTION LIKE " & Chr(34) & "*" & txtsearch & "*" & Chr(34)
' ***** this works as long as I don't search using 1"

If txtsearch = "1" Then
txtsearch = "1" & Chr(34) ' want to search on 1"
' ****** Need to search on the literal 1" Can't figure out how
' to search with the double quote in the string.
End If

Me.Form.Filter = strfilter
Me.Form.FilterOn = True

Exit Sub
EH:
MsgBox ("Error " & Err.Number & ": " & Err.DESCRIPTION)
End Sub

' Have tried numerous ways of wrapping in single and double quotes
' but nothing has worked for me.