checkbox values

I had a question awhile ago about changing the value of the checkboxes. For some reason when I did the change you told me to do the checkboxes no longer function correctly. I went in and made the following changes
if Field.Value = "True" or CLng(Field.Value)<>0 then

GetData = "Yes"

else

GetData = "No"

end if
Replace Yes and No with Passed and Failed. This is it.
if Field.Value = "True" or CLng(Field.Value)<>0 then

GetData = "Passed"

else

GetData = "Failed"

end if
When I do this for some reason in the edit pages the checkboxes wont be checked when they are suppose to be. For example I'll go in and edit or add a page and put a check on some fields. When I click submit everythign is fine but if I want to go in and re-edit the page the checkboxes will not be checked and when I hit submit it overwrites everything back to as if nothing we checked before. If i change the code back to how it was originally then everything works fine again.