for i=1 to 20 text1=text1 & i & "بره خط بعد" next i
خاصیت MultiLine تکست رو True کن و کت رو به صورت زیر تعغیر بده .
For i = 1 To 20 Text1 = Text1 & i & vbCrLf Next i