I obviously can't check your form values, but think the syntax looks ok.
Private Function PlanFilter()
Dim strFilter1 As String, strFilter2 As String, strFilter3 As String,
Dim gstrfilter As String
Dim Temp1 As Integer, Temp2 As Integer
Temp1 = 20
Temp2 = 30...