function MsgTab(text,sub,trash)
	local nOfLines=24
	local count=0
	local nFunc=0
	local valueStr=""
	if sub == nil or sub < 1 or sub > 4 then sub=1 end
	if trash == nil then trash=false end
	if type(text) == "table" then
		for key,value in pairs(text) do
			if type(value) ~= "function" or trash then
				if type(value) == "table" and sub > 1 then
					for key2,value2 in pairs(value) do
						if type(value2) ~= "function" or trash then
							if type(value2) == "table" and sub > 2 then
								for key3,value3 in pairs(value2) do
									if type(value3) ~= "function" or trash then
										if type(value3) == "table" and sub > 3 then
											for key4,value4 in pairs(value3) do
												if type(value4) ~= "function" or trash then
													valueStr = valueStr .. "\n" .. tostring(key) .. "." .. tostring(key2) .. "." .. tostring(key3) .. "." .. tostring(key4) .. " = " .. tostring(value4)
													count=0
													for i in string.gmatch(valueStr, "\n") do
														count = count+1
														if count >= nOfLines then
															if string.len(valueStr) > 0 then GUI.DisplayMessageBox(tostring(valueStr)) end
															valueStr = ""
														end
													end
												else
													nFunc=nFunc+1
												end
											end
										else
											valueStr = valueStr .. "\n" .. tostring(key) .. "." .. tostring(key2) .. "." .. tostring(key3) .. " = " .. tostring(value3)
										end
									else
										nFunc=nFunc+1
									end
									count=0
									for i in string.gmatch(valueStr, "\n") do
										count = count+1
										if count >= nOfLines then
											if string.len(valueStr) > 0 then GUI.DisplayMessageBox(tostring(valueStr)) end
											valueStr = ""
										end
									end
								end
							else
								valueStr = valueStr .. "\n" .. tostring(key) .. "." .. tostring(key2) .. " = " .. tostring(value2)
							end
						else
							nFunc=nFunc+1
						end
						count=0
						for i in string.gmatch(valueStr, "\n") do
							count = count+1
							if count >= nOfLines then
								if string.len(valueStr) > 0 then GUI.DisplayMessageBox(tostring(valueStr)) end
								valueStr = ""
							end
						end
					end
				else
					valueStr = valueStr .. "\n" .. tostring(key) .. " = " .. tostring(value)
				end
			else
				nFunc=nFunc+1
			end
			count=0
			for i in string.gmatch(valueStr, "\n") do
				count = count+1
				if count >= nOfLines then
					if string.len(valueStr) > 0 then GUI.DisplayMessageBox(tostring(valueStr)) end
					valueStr = ""
				end
			end
		end
		if count < nOfLines then
			if string.len(valueStr) > 0 then GUI.DisplayMessageBox(tostring(valueStr)) end
		end
		if nFunc > 0 then GUI.DisplayMessageBox(tostring(nFunc) .. " functions omitted") end
		
	else
		GUI.DisplayMessageBox(tostring(text))
	end

end