Prova così:

codice:
        Dim str As String = TextBox1.Text
        Dim sNew As String = String.Empty
        For Each c As String In str
            sNew = sNew + c + Chr(13)
        Next
        Label1.Anchor = AnchorStyles.Bottom
        Label1.Text = sNew