excel spreadsheet - how can i create this type of xml in VB?

[dijkstra]

<?xml version="1.0" encoding="UTF-8"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:x="urn:schemas-microsoft-com:office:excel" 
xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" 
xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:html=http://www.w3.org/TR/REC-html40 
xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet">
<ss:Worksheet ss:Name="Sheet1">
<Table ss:StyleID="ta1">
<Column ss:StyleID="Default" ss:Span="1" ss:Width="64.2614"/>
<Row ss:Height="12.8409">
<Cell>
<Data ss:Type="String">Name</Data>
</Cell>
<Cell>
<Data ss:Type="String">Email</Data>
</Cell>
</Row>
<Row ss:Height="13.4079">
<Cell>
<Data ss:Type="String">Jane</Data>
</Cell>
<Cell>
<Data ss:Type="String">janelog@yahoo.com</Data>
</Cell>
</Row>
<Row ss:Height="13.4079">
<Cell ss:Width="100"/>
<Data ss:Type="String">David</Data>
</Cell>
<Cell>
<Data ss:Type="String">ddavid@msn.com</Data>
</Cell>
</Row>
</Table>
</ss:Worksheet>
</Workbook>