How do I replace two values in a selected xml file with vba?

I need to replace the values of "XXXXXX" and "YYYY". The replacements in quotes will always be the same. But the original values in the quotes will always be different. I'm very new to coding so any help would be appreciated.

<?xml version="1.0" encoding="utf-8"?>
<CellProgram>
  <CellConfiguration CellName="XXXXXX" PartName="YYYYY">