Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FILE_NAME As String = "C:\Users\Sri\Desktop\OutputLibrary.txt"
        Dim TextLine As String = ""
        Dim File_Out As String = "C:\Users\Sri\Desktop\libartist.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)
            Dim objWriter As New System.IO.StreamWriter(File_Out)

            Do While objReader.Peek() <> -1
                TextLine = objReader.ReadLine() & vbNewLine

                'If TextLine.Contains("<key>Name</key>") Then
                'objWriter.Write(TextLine)
                'End If
                If TextLine.Contains("<key>Artist</key>") Then
                    objWriter.Write(TextLine)
                End If
                'If TextLine.Contains("<key>Album</key>") Then
                'objWriter.Write(TextLine)
                'End If
                'If TextLine.Contains("<key>Genre</key>") Then
                'objWriter.WriteLine(TextLine)
                'End If
            Loop


        Else

            MsgBox("File Does Not Exist")

        End If
    End Sub
End Class