Convert XML file to ASCII file MSXML 3.0

I need someone to write a routine in VB 6.0 which will convert the attached XML file to an ASCII file using MSXML 3.0. I need a simple form with 1. Common dialog which allow the user to select the XML file. 2. Command button which will convert the file. 3. ASCII file is written to XML file folder.