How do you change text label with text button?

I want a button so when pressed it changes the text in a text label. What I have currently:

local Button = script.Parent

while true do
wait (0.1)
function textchange()
if script.Parent.Visible==true then
	Button.MouseButton1Down:connect (function()
		script.Parent.Parent.Speech.Text="How are you."
	
end)
	end
end
end

Please help.