Про "перевод каретки" подскажите, пожалуйста:

[BMA]

Задача простая: из обычного текстового файла надо перенести текст (несколько строк) в поле контрола TextBox. Я применил для этого код:

Open "файл" For Input As #1
Do While Not EOF(1)
Line Input #1, STR
TextBox.Text = TextBox.Text & STR
Loop
Close #1

При этом, если Блокнот (Notepad.exe) показывает текст в несколько строк, то в TextBox все идет в одну строчку. Как с этим справиться?
Заранее спасибо!