Hi All

I have something like this - I add it trough inputbox
Code:
       If inCoLicz = 8 Then dbSumDane(6) = Format(dbSumDane(6) + nVal, "0.00"): inIleSzt(6) = inIleSzt(6) + HscIle.Value
       If inCoLicz = 9 Then dbSumDane(1) = Format(dbSumDane(1) + nVal, "0.00"): inIleSzt(1) = inIleSzt(1) + HscIle.Value
       If inCoLicz = 13 Then dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00"): inIleSzt(3) = inIleSzt(3) + HscIle.Value
       If inCoLicz = 12 Then dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00"): inIleSzt(4) = inIleSzt(4) + HscIle.Value
       
       If inCoLicz = 11 Then
           dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00"): inIleSzt(3) = inIleSzt(3) + HscIle.Value
           dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00"): inIleSzt(4) = inIleSzt(4) + HscIle.Value
       End If
Is possible to make it a better e.g: a some the loop, here's a some the way on a simplified writes?
some idea?

thanks in advance