A key part of my code isn't firing, as if it wasn't even there. Could anybody explain this?

I'm creating an admin panel and in that admin panel will be a feature to see all whispers and team chats. For now, I just have it print the messages in the on the client's chat (It's a local script).

The problem I'm having is that this code isn't firing, as if the code wasn't even there:

local CheckMessageHidden = GetMessage.OnClientEvent:Connect(function(Packet, Channel)
	if Channel == "All" or (Channel == "Team" and Players[Packet.FromSpeaker].Team == Player.Team) then
		TypeOfMessage = "Visible"
	end
	if TypeOfMessage == "nil" then
		if (Message:lower():sub(1, 2) == "/t" or Channel == "Team") and Players[Packet.FromSpeaker].Team ~= LocalPlayer.Team then
			TypeOfMessage = "Team"
		elseif Channel:lower():sub(1, 2) == "to" or Message:lower():sub(1, 2) == "/w" then
			TypeOfMessage = "Whisper"
		elseif Message:lower():sub(1, 2) == "/e" then
			TypeOfMessage = "Emote"
		end
	end
	TypeOfMessage = "Other"
end)

I'd really appreciate it if somebody could explain what is happening here.

Also, here is the entire code:

MessageProperties = {
	Color = Color3.fromRGB(0, 153, 255); 
	Font = Enum.Font.SourceSansBold;
	TextSize = 18;
}

local StarterGui = game:GetService("StarterGui")
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer or Players:GetPropertyChangedSignal("LocalPlayer"):wait()
local GetMessage = game:GetService("ReplicatedStorage"):WaitForChild("DefaultChatSystemChatEvents"):WaitForChild("OnMessageDoneFiltering")

local function onChatted(Player, Message)
	Message = Message:gsub("[\n\r]", ""):gsub("\t", " "):gsub("[ ]+", " ")
	local TypeOfMessage = "nil"
	local CheckMessageHidden = GetMessage.OnClientEvent:Connect(function(Packet, Channel)
		if Channel == "All" or (Channel == "Team" and Players[Packet.FromSpeaker].Team == Player.Team) then
			TypeOfMessage = "Visible"
		end
		if TypeOfMessage == "nil" then
			if (Message:lower():sub(1, 2) == "/t" or Channel == "Team") and Players[Packet.FromSpeaker].Team ~= LocalPlayer.Team then
				TypeOfMessage = "Team"
			elseif Channel:lower():sub(1, 2) == "to" or Message:lower():sub(1, 2) == "/w" then
				TypeOfMessage = "Whisper"
			elseif Message:lower():sub(1, 2) == "/e" then
				TypeOfMessage = "Emote"
			end
		end
		TypeOfMessage = "Other"
	end)

	CheckMessageHidden:Disconnect()

	if TypeOfMessage ~= "nil" then
		if TypeOfMessage == "Team" then
			MessageProperties.Text = "{Team} ["..Player.Name.."]: "..(Message:lower():sub(1, 2) == "/t" and Message:sub(3) or Message)
			StarterGui:SetCore("ChatMakeSystemMessage", MessageProperties)
		elseif TypeOfMessage == "Whisper" then
			local Whispering = Message:split(" ")[2]
			MessageProperties.Text = "{To"..Whispering.."} ["..Player.Name.."]: "..(Message:lower():sub(1, 2) == "/w" and Message:sub(4 + #Whispering) or Message)
			StarterGui:SetCore("ChatMakeSystemMessage", MessageProperties)
		elseif TypeOfMessage == "Emote" then
			MessageProperties.Text = "{Emote} ["..Player.Name.."]: "..Message:sub(3)
			StarterGui:SetCore("ChatMakeSystemMessage", MessageProperties)
		elseif TypeOfMessage == "Other" then
			MessageProperties.Text = "{Other} ["..Player.Name.."]: "..Message:sub(3)
			StarterGui:SetCore("ChatMakeSystemMessage", MessageProperties)
		end
	end
end

for i, v in pairs(Players:GetPlayers()) do
	v.Chatted:Connect(function(Message)
		onChatted(v, Message)
	end)
end

Players.PlayerAdded:Connect(function(v)
	v.Chatted:Connect(function(Message)
		onChatted(v, Message)
	end)
end)