Не пишется в файл chr(13) как хочу

[MOV]

Создаю строку в котрую втыкаю chr(13) в местах , где хочу, чтобы в текстовике начиналась новая строка
потом пишу эту строку в файл, а там вместо chr(13)
ставится просто квадрат

Пишу файл так:

Код: Выделить всё

Private Sub WrighteFile(ByVal MyText As String)
    Dim Fn As Integer
    Fn = FreeFile
    Open "MyFile.txt" For Output As Fn
    Print #Fn, MyText
    Close #Fn
End Sub

Понимаю, что можно писать в файл построчно, но может есть вариант, чтобы одним махом и несколько строк? Есть какая-то переменная типа
vbCtrlf или что-то такое аналог перевода строки не помню.
И пож не убивайте по поиску искал
"перевод строки", "chr(13)"... ничего путного

[Amed]

vbCrLf = Chr(13) & Chr(10)

[MOV]

во спасиб. вспомнил

[IIIypuk]

эээ, а есть еще такая константа vbNewLine. Почему то никто ее не хочет использовать никогда... Скажите хоть, почему?

[GSerg]

Потому что не всегда требование писать #13#10 эквивалентно требованию создать перевод строки.

[IIIypuk]

А именно, на примере??

З.Ы. В данном случае, по-моему, подходит как нельзя лучше.

[tyomitch]

IIIypuk, не поверишь, но VBA работает и на Маках, где перевод строки другой.

[IIIypuk]

ну так то VBA

[tyomitch]

IIIypuk, удивишься, но VB и VBA отличаются только библиотекой поддержки форм. Всё, что с формами не связано, у них общее. (Не в смысле просто совместимое, а в смысле берётся из одной библиотеки.)
Справка у них тоже общая.

[IIIypuk]

ну то что из одной библы понятно, а что, еще и хелп общий