procent beregning tæller forkert

Jeg er ved at tælle nogle komplekse data sammen og har lidt mistet overblikket. Det handler om noget som kan være opfyld og når alle er opfyldt giver der 100%
Er der nogle som kan regne ud hvorfor det kan blive mere end 100% eller give mig et hint at kikke efter?


Her er min function:

function procent(a,b)
    Dim myA, myB
    myA = 0
    myB = 0
    'if IsNumeric(a) then myA = a
    'if IsNumeric(b) then myB = b
    myA = CDbl(a)
    myB = CDbl(b)
   
    if myB = 0 and myA = 0 then
        procent = "0 %"
    else
        procent = Round((myA/myB)*100) & " %"
    end if
end function

Her udskrives % beregningerne:

<td colspan="2" bgcolor="#F8F8F8"><%=myCollection("process")%>&nbsp;</td>
                              <%end if%>
                              <%
                              myColor = "E4CB54"
                              myProcent = procent(totalAnswerCount("totalA"),totalCount("totalQ"))
                              if myProcent = "100 %" then  myColor = "7BC067"
                              %>
                              <td width="10%" bgcolor="#<%=myColor%>" align=right><%=procent(totalAnswerCount("totalA"),totalCount("totalQ"))%></td>
                            </tr>