DataStore not saving data?

Filtering enabled is on -Don't know if that matters or not

No errors it just won't save data

MoneyStore = game:GetService("DataStoreService"):GetDataStore("DataStore")

function PlayerEntered(player)
    repeat wait() until player.Character
    if MoneyStore:GetAsync("Money_"..player.Name) ~= nil then
        script.Parent.Parent.MoneyDisplay.Money.TextLabel.Text = MoneyStore:GetAsync("Money_"..player.Name)
    else
        script.Parent.Parent.MoneyDisplay.Money.TextLabel.Text = "1500"
    end

    script.Parent.Parent.MoneyDisplay.Money.TextLabel.Changed:connect(function(Text)
        MoneyStore:SetAsync("Money_"..player.Name, Text)
        print("Saved")
    end)
end

game.Players.PlayerAdded:connect(PlayerEntered)