Imprimir un array en un textbox multilinea

[sdiaz1983]

Este es el codigo de lo que llevo

Código:

Public Class FrmOrdenacion
#Region "VARIABLES GLOBALES"
    Dim datos() As Integer
    Dim numeroelementos As Integer
#End Region
#Region "ACA SE OBTIENE EL TAMAÑO DEL VECTOR"
    Private Sub BtnIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIngresar.Click
        Dim i As Integer
        Try
            numeroelementos = CInt(TxtIngresar.Text)
            DtgvDatos.Columns.Add("c1", "ELEMENTOS")
            For i = 0 To numeroelementos - 1
                DtgvDatos.Rows.Add()
            Next
            LblIngresar.Visible = False
            TxtIngresar.Visible = False
            BtnIngresar.Visible = False
            TxtResultados.Visible = True
            DtgvDatos.Visible = True
            BtnAscendente.Visible = True
            BtnDescendente.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

#End Region
    'TxtResultados.Text = "Su contraseña no es muy segura" & vbNewLine & "¿desea modificarla?"
    Private Sub BtnAscendente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAscendente.Click
        Dim i As Integer
        Dim j As Integer
        Dim aux As Integer
        ReDim Preserve datos(numeroelementos)

        For i = 0 To numeroelementos - 1
            datos(i) = DtgvDatos(0, i).Value
        Next
        i = 0
        For i = 0 To numeroelementos - 1
            For j = 0 To numeroelementos - 1
                If (datos(i) < datos(j)) Then
                    aux = datos(i)
                    datos(i) = datos(j)
                    datos(j) = aux
                End If
            Next
        Next
        i = 0
        For i = 0 To numeroelementos - 1
            TxtResultados.Text = datos(i) & vbNewLine
        Next


    End Sub

    Private Sub BtnDescendente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDescendente.Click
        Dim i As Integer
        Dim j As Integer
        Dim aux As Integer
        ReDim Preserve datos(numeroelementos)

        For i = 0 To numeroelementos - 1
            datos(i) = DtgvDatos(0, i).Value
        Next
        i = 0
        For i = 0 To numeroelementos - 1
            For j = 0 To numeroelementos - 1
                If (datos(i) > datos(j)) Then
                    aux = datos(i)
                    datos(i) = datos(j)
                    datos(j) = aux
                End If
            Next
        Next
        i = 0
        For i = 0 To numeroelementos - 1
            MsgBox(datos(i))
        Next
    End Sub
End Class