请教在vb 中使用vbCrLf为什么无效？

在下面的程序中，使用vbCrLf无效，并且使用(chr(13)+chr(1))也无效。
请赐教，谢谢！Option Explicit
'定义窗体级别数组变量
Dim RNDDATA(1 To 8) As IntegerPrivate Sub cmdArray_Click()
    Dim i As Long
    Dim j As Long
    Dim iMin As Integer
    Dim iData As Integer
    
    For i = 1 To 7      '8个数进行7轮比较
        iMin = i    '第i轮比较的时候，假设第i个元素最小
        '在数组剩下后面的数中选择出最小的数（i到8）
        For j = i + 1 To 8
            If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
        Next j
        'i到8中的最小的数，与第i个元素进行交换
        iData = RNDDATA(i)
        RNDDATA(i) = RNDDATA(iMin)
        RNDDATA(iMin) = iData
    Next i
    '显示排序的结果
    txtOutPut.Text = ""
    For i = 1 To 8
        txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
    Next i
End SubPrivate Sub cmdExit_Click()
    Unload Me
    End
End SubPrivate Sub cmdRnd_Click()
    txtRndData.Text = ""     '清除输入区
    txtOutPut.Text = ""     '清除输出区
    Dim intindex As Long
    
    For intindex = 1 To 8
        '填充随机数，并使用Cint强制转换为整数类型
        RNDDATA(intindex) = CInt(100 * Rnd + 1)
        'vbCrlf为VB常数，表示回车换行
        txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
    Next intindex
End SubPrivate Sub Form_Load()End Sub 
在下面的程序中，使用vbCrLf无效，并且使用(chr(13)+chr(1))也无效。
请赐教，谢谢！Option Explicit
'定义窗体级别数组变量
Dim RNDDATA(1 To 8) As IntegerPrivate Sub cmdArray_Click()
    Dim i As Long
    Dim j As Long
    Dim iMin As Integer
    Dim iData As Integer
    
    For i = 1 To 7      '8个数进行7轮比较
        iMin = i    '第i轮比较的时候，假设第i个元素最小
        '在数组剩下后面的数中选择出最小的数（i到8）
        For j = i + 1 To 8
            If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
        Next j
        'i到8中的最小的数，与第i个元素进行交换
        iData = RNDDATA(i)
        RNDDATA(i) = RNDDATA(iMin)
        RNDDATA(iMin) = iData
    Next i
    '显示排序的结果
    txtOutPut.Text = ""
    For i = 1 To 8
        txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
    Next i
End SubPrivate Sub cmdExit_Click()
    Unload Me
    End
End SubPrivate Sub cmdRnd_Click()
    txtRndData.Text = ""     '清除输入区
    txtOutPut.Text = ""     '清除输出区
    Dim intindex As Long
    
    For intindex = 1 To 8
        '填充随机数，并使用Cint强制转换为整数类型
        RNDDATA(intindex) = CInt(100 * Rnd + 1)
        'vbCrlf为VB常数，表示回车换行
        txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
    Next intindex
End SubPrivate Sub Form_Load()End Sub