Dim sr As New IO.StringReader(rtfBox.Text)
        Dim sb As New System.Text.StringBuilder(rtfBox.Text.Length)
        Do Until sr.Peek < 0
            Dim line$ = sr.ReadLine
            Debug.WriteLine("Line" & line)
            sb.Insert(0, line & vbCrLf)
 
        Loop
        rtfBox.Text = sb.ToString