Custom Chat With Chat Tags Help?

I want to make a custom chat which i have succeed doing so far. However I want to make it so players who have purchased certain gamepasses have certain tags next to their names when they talk. For example if someone bought VIP when they say "hello world" in chat is would appear "[VIP] Player: hello world".

I have so far managed to make a chat tag next to everyones name by changing this line:

local sanitizedMessage = sender .. ": " .. game.Chat:FilterStringForPlayerAsync(message, player)

To this

local sanitizedMessage = "[VIP]" .. sender .. ": " .. game.Chat:FilterStringForPlayerAsync(message, player)

I'm just not sure on how to make a function that changes this if a player has a certain gamepass. The code so far:

The Chat: http://prntscr.com/8uqzyv

local messageData = {}
local MAX_MESSAGES = 10
----GamePass----
local passId = 0000000
----GamePass----

local function storeMessage(sender, message)
	for _, player in pairs(game.Players:GetPlayers()) do
		local sanitizedMessage = sender .. ": " .. game.Chat:FilterStringForPlayerAsync(message, player)
		local playerMessages = messageData[tostring(player.userId)]
--		table.insert(messageData[tostring(player.userId)], sanitizedMessage)
--		if #messageData[tostring(player.userId)] > MAX_MESSAGES then
--			table.remove(messageData[tostring(player.userId)], 1)
--		end
--		game.ReplicatedStorage.SendMessages:FireClient(player, messageData[tostring(player.userId)])
		table.insert(playerMessages, sanitizedMessage)
			if #playerMessages > MAX_MESSAGES then
				table.remove(playerMessages, 1)
			end
		game.ReplicatedStorage.SendMessages:FireClient(player, playerMessages)
	end
end

game.Players.PlayerAdded:connect(function(player)
	local playerMessages = {}
	messageData[tostring(player.userId)] = playerMessages
	
	player.Chatted:connect(function(message)
		storeMessage(player.Name,  message)
	end)
	
	player.CharacterAdded:connect(function(character)
		game.ReplicatedStorage.SendMessages:FireClient(player, messageData[tostring(player.userId)])
	end)
end)

game.Players.PlayerRemoving:connect(function(player)
	messageData[tostring(player.userId)] = nil
end)

The trigger: http://prntscr.com/8ur0s9 Chat Gui: http://prntscr.com/8ur0zp

local chatFrame = script.Parent.Frame

game.ReplicatedStorage.SendMessages.OnClientEvent:connect(function(messages)
	chatFrame:ClearAllChildren()	
	
	for i, message in pairs(messages) do
		local newLine = Instance.new("TextLabel", chatFrame)
		newLine.Text = message	
		newLine.Size = UDim2.new(1,0,0,18)
		newLine.Position = UDim2.new(0,0,0,18*(i-1))
		newLine.TextXAlignment = Enum.TextXAlignment.Left
		newLine.TextYAlignment = Enum.TextYAlignment.Center
		newLine.BackgroundTransparency = 1
		newLine.BorderSizePixel = 0
		newLine.FontSize = Enum.FontSize.Size18
		newLine.Font = Enum.Font.SourceSans
		print(i .. ": " .. message)
	end
end)