Private Sub txtInstructions_Leave(sender As Object, e As EventArgs) Handles txtInstructions.Leave

Dim IndividualRecipe As XmlNode

Dim root As XmlNode = doc.DocumentElement

Dim Titl As String

Titl = "'" & lstTitles.SelectedItem & "'"

IndividualRecipe = root.SelectSingleNode("descendant::recipe[title=" & Titl & "]")

IndividualRecipe.LastChild.InnerText = txtInstructions.Text

doc.Save(RecipesFilePath)

End Sub