Chris,
1. Reset destination values to zero
What about replacing
rgResult.Value = 0
By
WshD.Rows(2).Resize(rgResult.Cells.Count).columns( 2).value=0
2. Concerning the search of 5 vs 5.0
ValueToFind is a variant so that you can search for any data type. so:

Maybe replacing
processA activesheet, worksheets(2), 5
by
processA activesheet, worksheets(2), cstr(5)
to search the string "5"... Excel may search the displayed string
instead. I haven't tried it though.

I hope this helps,
Sebastienm