Line Terminators

    Private Sub doIt()
        Dim encode As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")
        Dim st As New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read)
        Dim br As New BinaryReader(st, encode)
        Dim wst As New FileStream(TextBox2.Text, FileMode.Create, FileAccess.ReadWrite)
        Dim bw As New StreamWriter(wst, encode)
        Dim byt As Integer
        Dim iC As Int64, iL As Int64
        iL = st.Length - 1
        Dim strLine As String = ""
        'Dim sb As New System.Text.StringBuilder(5000000)
        Dim strFind As String = "/MediaType(AUX)"
        Dim strReplace As String = "/MediaPosition 3 /TraySwitch false"
        For iC = 0 To iL
            byt = br.ReadByte
            strLine &= Chr(byt)
            Select Case byt
                Case 10
                    strLine = strLine.Replace(strFind, strReplace)
                    bw.Write(strLine)
                    strLine = ""
                Case Else

            End Select
            If iC = iL Then
                bw.Write(strLine)
            End If
        Next
        bw.Close()
        wst.Close()
        br.Close()
        st.Close()

        TextBox3.Text = "Finished"
    End Sub