ery, very urgent Please, help me - adding values

[Tamgovb]

Hi All

I have something like this - I add it trough inputbox

       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

[MartinLiss]

    Select Case inCoLicz
       Case 8
        dbSumDane(6) = Format(dbSumDane(6) + nVal, "0.00")
        inIleSzt(6) = inIleSzt(6) + HscIle.Value
       Case 9
        dbSumDane(1) = Format(dbSumDane(1) + nVal, "0.00")
        inIleSzt(1) = inIleSzt(1) + HscIle.Value
       Case 13
        dbSumDane(3) = Format(dbSumDane(3) + nVal, "0.00")
        inIleSzt(3) = inIleSzt(3) + HscIle.Value
       Case 12
        dbSumDane(4) = Format(dbSumDane(4) + nVal, "0.00")
        inIleSzt(4) = inIleSzt(4) + HscIle.Value
       Case 11
           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 Select