ery, very urgent Please, help me - adding values

Hi All:wave:

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 :thumb: :thumb: :thumb: :thumb: :thumb: :confused:

Code:

---

    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

---