XML - URGENTE!!!!Dividir xml en xmls más pequeños

Buenas,

¿Alguien sabe como dividir un xml en varios xmls más pequeños por una etiqueta de este? De forma automática claro XD

Saludos y gracias :-)

Dim xmlDoc As New Msxml2.DOMDocument40
xmlDoc.async = False
xmlDoc.resolveExternals = False
xmlDoc.loadXML ("<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>")
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox("You have error " & myErr.reason)
Else
MsgBox xmlDoc.xml
End If

'Seudocodigo
'=============================0
Set oNodos = xmlDoc.documentElement.childNodes

for Each oNodo in oNodos

Set oFichero = New Fichero( <newname>)

Call oFichero.write( oNodo.xml )
Call oFicero.Close

next