Oh got it now I think Thanks a lot

Code:
Private Sub ManipulateXLM()

Dim doc As New MSXML2.DOMDocument
doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

With doc
//Do stuff
End With

End Sub
Or

Code:
Private Sub ManipulateXLM()

Dim doc As MSXML2.DOMDocument
Set doc = new MSXML2.DOMDocument
doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

With doc
//Do stuff
End With

End Sub