Probelm With Command Runner Script. Please Help?

This below is a simple command handler I made. But the command runner does not work. Does anybody please know how to fix this?

local Module = {}

local DataStoreService = game:GetService("DataStoreService")
local Players = game:GetService("Players")

Module.Commands = {
    ["1"] = {
        ["Name"] = "CustomPrint";
        ["Arguments"] = {};
        ["Function"] = function(Player)
            print("Hi")
        end
    }
}

Module.AdminList = {
    1806855379;
}
Module.DataStore = DataStoreService:GetDataStore("AdminCommands")
Module.Prefix = "?"

local RealAdminList
pcall(function()
    RealAdminList:GetAsync("AdminList")
end)
if not RealAdminList then
    Module.DataStore:SetAsync("AdminList",Module.AdminList)
    RealAdminList = Module.AdminList
end

function Module.Parse(Message,Player)
    Message = string.lower(Message)
    local SplitString = Message:Split(" ")
    local PrefixCommand = SplitString[1]
    local Command = PrefixCommand:Split(Module.Prefix)
    local CommandName = Command[2]

    for _,RealCommand in pairs(Module.Commands) do
        local RealCommandLower = string.lower(RealCommand.Name)
        if CommandName == RealCommandLower then
            RealCommand.Function(Player)
            break
        end
    end
end

Players.PlayerAdded:Connect(function(Player)
    Player.Chatted:Connect(function(Message,Recipient)
        Module.Parse()
    end)
end)