saleprice.Text = IndividualCoin.SelectSingleNode("saleprice").InnerText

currentvalue.Text = IndividualCoin.SelectSingleNode("currentvalue").InnerText

grade.Text = IndividualCoin.SelectSingleNode("grade").InnerText

Private Sub TextFields_Leave(sender As Object, e As EventArgs) Handles Notes.Leave, dateofpurchase.Leave, purchaseprice.Leave, dateofsale.Leave, saleprice.Leave, currentvalue.Leave, grade.Leave, country.Leave, year.Leave, mintmark.Leave, variety.Leave, denomination.Leave, quantity.Leave