สอบถามคำสั่ง VB.NET เกียวกับการตัดคำใน TextBox ครับว่าต้องเขียนแบบไหน

Imports System.IO
Imports System.Text

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sr As StreamReader = New StreamReader("d:/test.txt", UnicodeEncoding.GetEncoding(0))
        Dim word As String = Chr(sr.Read())
        While (Not sr.EndOfStream)
            If (word.Length < 7) Then
                word = word & Chr(sr.Read())
            Else
                TextBox1.Text = TextBox1.Text & word & vbNewLine
                word = ""
            End If
        End While
        TextBox1.Text = TextBox1.Text & word & vbNewLine
        sr.Close()
    End Sub
End Class