奇怪的Replace与Split函数问题，为什么chr(10)与chr(13)不能同时被祛除????

Question

现在做一个项目,由于有很多的数据要输入,为了简化输入的流程，就采用一种批量输入的方式输入数据,方法是:
    将集合数据输入到文本框之中里边,数据的规范是,每一行就是一个数据,换行后为另一个数据,如:
a
b
c
就是三个数据,我需要将这三个数据获取出来,于是我就使用以下代码:
        Dim UserList As String, user() As String, i As Integer
        UserList = txtUserList.Text
        UserList.Replace(Chr(10), "")
        user = UserList.Split(Chr(13))
        For i = 1 To user.Length
            TextBox1.Text += user(i - 1)
        Next
含义是:从txtUserList文本框之中读取数据,后将数据中换行符号chr(10)删除,再根据chr(13)将数据分离到数组当中,[测试]将USER()中的数据输出到文本框textBox1当中,发现结果如下:
运行结果:
a
b
c
    问题出现了，无论怎么处理，似乎,chr(13)或者chr(10)总是不能同时被删除,在数组user()当中的数据中总会有这个符号在里边,请问有什么办法可以删除掉这个符号呢?

Answer 1

user = UserList.Split(Chr(13))
        For i = 1 To user.Length
            TextBox1.Text += user(i - 1).Trim()
        Next