Infinite money gamepass script not working

[SelDraken]

wait(1)
local Players = game:GetService('Players')
local MarketPlaceService = game:GetService('MarketplaceService')
local GamepassId = 91920947

function GiveMoney(Player)
	if Player:GetAttribute("CheckGamepass") == nil then
		Player:SetAttribute("CheckGamepass",true)
		local leaderstats = Player:WaitForChild("leaderstats")
		local Money = leaderstats:WaitForChild("Money")
		if MarketPlaceService:UserOwnsGamePassAsync(Player.UserId, GamepassId) then
			Money.Value = 9999999999999
		end 
	end
end

Players.PlayerAdded:Connect(function(Player)
	GiveMoney(Player)	
end)

for _,player in pairs(Players:GetPlayers()) do
	GiveMoney(player)	
end