换行符替换不成功

.txt文件内容有111;222;333;444;555;666;777;888;999;000;
用以下程序替换“;”为换行为什么不成功
    Dim fn As Integer
    Dim k As Integer
    Dim X As String
    fn = FreeFile
    TxtSect.Text = ""
    k = 0
    Open "D:\data.txt" For Input As fn
    Do While Not EOF(fn)
        Line Input #fn, X
        X = Replace(X, ";", vbCrLf)
        TxtSect.Text = X
        k = k + 1
    Loop
    Close fn --------------------编程问答-------------------- vbCrLf 换成chr(10)+chr(13)试试 --------------------编程问答-------------------- 换成chr(10)+chr(13)也不可以 --------------------编程问答-------------------- 你還不如直接用Split(";") --------------------编程问答-------------------- 用正则里的替换语法,就可以了
--------------------编程问答-------------------- 你这不是vb.net，而是是vb6的代码啊，在vb6下肯定没问题 --------------------编程问答-------------------- TxtSect的多行模式是否设置为true了？ --------------------编程问答-------------------- TxtSect.Text = X

改为

TxtSect.Text &= X

补充：.NET技术 ,  VB.NET