Конвертирование *.fb2 в *.txt

Dim Txt As String = IO.File.ReadAllText("1.txt", System.Text.Encoding.Default)
        Txt = Txt.Replace("<p>", "") : Txt = Txt.Replace("</p>", "")' и т.д.
         IO.File.WriteAllText("1.txt", Txt, System.Text.Encoding.Default)

If OFD.ShowDialog = DialogResult.OK Then
    Pu = OFD.FileName
    C = FileIO.FileSystem.GetName(Pu)
End If
Dim N As Integer = Len(C)
C = Strings.Left(C, N - 4) ' длина расширения файла может быть и более 3-х символов, но с fb2 проканает конечно

If OFD.ShowDialog = DialogResult.OK Then
    Pu = OFD.FileName
    C = System.IO.Path.GetFileNameWithoutExtension(Pu)
End If

  C = System.IO.Path.GetFileNameWithoutExtension(Pu)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As IO.StreamWriter = New IO.StreamWriter("D:\Inst\BooksReader\123\000\432021.txt")
        Dim Bodylist As XmlNodeList = fd2.GetElementsByTagName("body")
        Dim BodyCount As Integer = Bodylist.Count
 
        For index = 0 To (BodyCount - 1)
            For Each oi As XmlNode In Bodylist(index).ChildNodes
                If oi.HasChildNodes Then
                    For Each op As XmlNode In oi.ChildNodes
                        If op.Name = "title" OrElse op.Name = "subtitle" Then
                            str.WriteLine(vbNewLine)
                        End If
                        If op.HasChildNodes Then
                            For Each ol As XmlNode In op.ChildNodes
                                If ol.Name = "title" OrElse ol.Name = "subtitle" Then
                                    str.WriteLine(vbNewLine & ol.InnerText & vbNewLine)
                                Else
                                    str.WriteLine(ol.InnerText)
                                End If
                            Next
                        Else
                            str.WriteLine(op.InnerText)
                        End If
                        If op.Name = "title" OrElse op.Name = "subtitle" Then
                            str.WriteLine(vbNewLine)
                        End If
                    Next
                Else
                    str.WriteLine(oi.InnerText)
                End If
                str.WriteLine(vbNewLine)
            Next
        Next
        str.Close()
    End Sub