LF改行でファイルを出力したい

Excel

vbaでファイルを出力するとき、単純なprint文がある。
print文は、指定された文字を1行として出力するので、最後に改行記号が付く。
この改行記号は、CRLFである。

これをLF改行で出力したい時はどうすればいいか？

print文は 末尾に ; セミコロン をつけると、改行記号が付かない。
こ性質を利用して、 VBLF; とすれば、OK

Sub main()

    Dim strdir As String
    
    strdir = "H:\public_data\data\excel\20140116 lf改行のファイルは出力できるか"

    Open strdir & "\testfie.txt" For Output As #1
    
    Print #1, "aaaa" & vbLf;
    Print #1, "bbbb" & vbLf;
    
    Close #1

End Sub