Function Defects_Bug_CanPost
On Error Resume Next
a=Bug_Fields("BG_USER_08").Value
if Bug_Fields("BG_USER_01").value = "09-Reopen" then
a=a+1
Bug_Fields("BG_USER_08").Value = a
end if
Defects_Bug_CanPost = Project_DefaultRes
On Error GoTo 0
End Function