How to change an object IntValue's value with a script?

Here is my code:

--Variables

local Drill = script.Parent
local DrillUpper = Drill:FindFirstChild("Drill upper")
local DrillTransparency = DrillUpper.Transparency
local Money = Drill.parent.parent:FindFirstChild("CurrencyToCollect")

--Variables

--Testing

print (DrillUpper.Name)
print (Drill.Name)
print (Money)
print (DrillTransparency)

--Testing

--Function

local function TransparencyTest()
    print ("function works")
    wait (2)
    if DrillTransparency == 0 then
        while (true) do
            Money.value = Money.value + 1 

            print (Money)
            wait(1)
        end
    end
end

--Function

--The program

TransparencyTest()

--The program

Why doesn't the object variable change?
It is no errors.
I saw im am not the only one having problems with this, but they deleted the code so I didn't understand it fully.