dim words as string
words = ""
if textbox1.text <> "" then
words = words + textbox1.text
elseif textbox2.text <> "" then
words = words + textbox2.text
elseif textbox3.text <> "" then
words = words + textbox3.text
elseif textbox4.text <> "" then
words = words + textbox4.text
elseif textbox5.text <> "" then
words = words + textbox5.text