iCobbel = iCount * iMultipler
        If cbStack.Checked = True Then
            iCobbel = iCobbel * iStack
        End If
        Do While iCobbel >= 32
            iCobbel = iCobbel - 32
            iCoal = iCoal + 4
        Loop
        Do While iCoal >= 5
            iCoal = iCoal - 5
            iLapislazuli = iLapislazuli + 9
        Loop
        Do While iLapislazuli >= 9
            iLapislazuli = iLapislazuli - 9
            iLapislazuliblock = iLapislazuliblock + 1
        Loop
        Do While iLapislazuliblock >= 1
            iLapislazuliblock = iLapislazuliblock - 1
            iIron = iIron + 7
        Loop
        Do While iIron >= 15
            iIron = iIron - 15
            iGold = iGold + 8
        Loop
        Do While iGold >= 9
            iGold = iGold - 9
            iGoldblock = iGoldblock + 1
        Loop
        Do While iGoldblock >= 3
            iGoldblock = iGoldblock - 3
            iDiamond = iDiamond + 1
        Loop
        Do While iDiamond >= 9
            iDiamond = iDiamond - 9
            iDiamondblock = iDiamondblock + 1
        Loop
        Do While iDiamondblock >= 1
            iDiamondblock = iDiamondblock - 1
            iSmaragd = iSmaragd + 3
        Loop
        Do While iSmaragd >= 9
            iSmaragd = iSmaragd - 9
            iSmaragdblock = iSmaragdblock + 1
        Loop