See an example:
Dim sFileName as String = "EnterFullFileNameHere.xml"
Dim xDoc = XDocument.Load(sFileName)
Dim mDate As Date = DateTime.Today().AddDays(-30)
Dim picturesToDelete = From job in xDoc.Root.Descendants("Job") _
Where (job.Elements("Status").Value = "b-complete" And job.Elements("DateOut").Value < mDate) _
Select job.Elements("Artwork").Value
For Each p in picturesToDelete
Console.WriteLine("{0}", p)
Next
[EDIT]
Based on the same logic you can get jobs to delete
Dim jobsToDelete = From job in xDoc.Root.Descendants("Job") _
Where (job.Elements("Status").Value = "b-complete" And job.Elements("DateOut").Value < mDate) _
Select job
jobsToDelete.Remove()
xDoc.Save("NewOrOldFileName.xml")
Good luck!