'This is the input file that we are reading from (The book that we are getting all the data).s
    Private m_InputStream As System.IO.StreamReader = Nothing

    'This is the Currently open file that we are writing to.
    Private m_OutputStream As System.IO.StreamWriter = Nothing

Private Sub m_Create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_Create.Click
        'This is what we're reading from the file
        Dim strStringRead As String = ""

        Dim iDataWritten As Integer = 0

        'This is what we're going to be writting to the file
        'Dim strStringToWrite As String = ""

        Try
            While Me.m_InputStream.Peek <> -1
                strStringRead = Me.m_InputStream.ReadLine()

                'If the total size of the string is less then 2048 bytes (2 KB) then add and read the next line,
                'other wise we must stop and write.
                If (strStringRead.Length < Me.m_kMaxFileSize) Then
                    'add and read the next part
                    WriteData(strStringRead, iDataWritten)
                Else
                    'the string needs to be chuncked
                End If



            End While
        Catch ex As Exception

        End Try

    End Sub

    'This function will create the File and write the table of contents
    Private Sub WriteData(ByVal strStringToWrite As String, ByRef iDataWritten As Integer)
        Try
            If ((iDataWritten + strStringToWrite.Length + 1) >= Me.m_kMaxFileSize) Then
                iDataWritten = 0

                Me.m_OutputStream.Close()
                Me.m_OutputStream = Nothing
            End If

            If Me.m_OutputStream Is Nothing Then
                Dim strFilename As String = New String(Me.m_OutputFile.Text + "\" + "page" + CType(Me.m_iPageNumber, String) + ".txt")
                Me.m_OutputStream = New System.IO.StreamWriter(strFilename, False, System.Text.Encoding.ASCII)

                Me.m_iPageNumber += 1
            End If

            'Dim strFilename As String = New String(Me.m_OutputFile.Text + "\" + "page" + CType(Me.m_iPageNumber, String) + ".txt")
            'Dim OutputStream As System.IO.StreamWriter = New System.IO.StreamWriter(strFilename, False, System.Text.Encoding.ASCII)

            Me.m_OutputStream.WriteLine(strStringToWrite)
            'add one for newline characters
            iDataWritten += strStringToWrite.Length + 1

        Catch ex As Exception

        End Try
    End Sub