این خط کد رو اضافه کن به برنامت :
Text1.Text = Replace(Text1.Text, Chr(10), vbCrLf)