VB6 How to read textbox line by line then assign it to other textbox

Please help read text1.text

model-- TRG86
capacity --60
shipped -- no

i have text2.text,text3.text,text4.text, assign textbox according to text1.text value

if model then
text2.text=TRG86
if capacity then
text3.text=60
if shipped then
text4.text=no
How can I put them into string?