[mailtoroop]

I have the following data into excel sheet.
----------------------
A B
1 India MP
2 India UP
3 USA CT
4 USA CA
---------------------------

I want to genrate following xml out of this excel.

<?xml version='1.0' encoding='Unicode'?>
<Tree>
<value>Tree</value>
<Childrens>
<A1>
<value>India</value>
<Childrens>
<B1>
<value>MP</value>
<Childrens></Childrens>
</B1>
<B2>
<value>UP</value>
<Childrens> </Childrens>
</B2>
</Childrens>
/A1>
<A3>
<value>USA</value>
<Childrens>
<B3>
<value>CT</value>
<Childrens></Childrens>
</B3>
<B4>
<value>CA</value>
<Childrens></Childrens>
</B4>
</Childrens>
</A3>
</Childrens>
</Tree>

Can someone please provide me the code written in visual basic 6.0?