Configure o Text, como MultiLine = True
O ScrollBars, como vc quiser, e quando quiser nova linha, basta dar o ENTER, desde que não tenha nenhum evento p/ esta tecla, pode também fazer um evento, tipo
If Tecla = 13 Then
Text1.Text = Text1.Text & chr(13)
End If
Mas não é necessário, se vc não colocou nenhum evento com a tecla no Text.
vlu//