Visual Basic - Combinar XML y XSL en VB

Creo un documento XML en un objeto DOM para el XML
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
If Not xmlDoc.loadXML(pXML) Then
MsgBox ("ERROR cargando XML:")
Else
'*** Se combina el objeto XML con el XSL
Set ObjXsl = CreateObject("MSXML2.DOMDocument")
ObjXsl.async = False
If Not ObjXsl.Load("myFicheroXsl.xsl") Then
MsgBox ("ERROR cargando XSL:")
Else
MsgBox (xmlDoc.transformNode(ObjXsl))
End If