-1 then for i = 0 to chk if infcsicknm(i) = 1 then infcsicknm1 = 1 return else infcsicknm1 = 0 end if next else infcsicknm1 = 0 end if formula = infcsicknm1 ]]> -1 then for i = 0 to chk if infcsicknm(i) = 2 then infcsicknm2 = 1 return else infcsicknm2 = 0 end if next else infcsicknm2 = 0 end if formula = infcsicknm2 ]]> -1 then for i = 0 to chk if infcsicknm(i) = 3 then infcsicknm3 = 1 return else infcsicknm3 = 0 end if next else infcsicknm3 = 0 end if formula = infcsicknm3 ]]> -1 then for i = 0 to chk if infcsicknm(i) = 4 then infcsicknm4 = 1 return else infcsicknm4 = 0 end if next else infcsicknm4 = 0 end if formula = infcsicknm4 ]]> -1 then for i = 0 to chk if infcsicknm(i) = 5 then infcsicknm5 = 1 return else infcsicknm5 = 0 end if next else infcsicknm5 = 0 end if formula = infcsicknm5 ]]> -1 then for i = 0 to chk if infcsicknm(i) = 6 then infcsicknm6 = 1 return else infcsicknm6 = 0 end if next else infcsicknm6 = 0 end if formula = infcsicknm6 ]]>