opret xml node fra vb

tmpElement.WriteStartElement("dinNode")
tmpElement.WriteString("nodeVærdi")
tmpElement.WriteEndElement()

vil skrive
<dinNode>nodeVærdi</dinNode>

tmpElement er erklæret som
Dim tmpElement As MSXML2.IXMLDOMElement
den har derfor ikke en writestartElement metod :(

Det er VB6 jeg bruger ikke vb.net

århh sorry :)

' Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal indent As Integer, _
  ByVal parent As IXMLDOMNode, ByVal node_name As String, _
  ByVal node_value As String)
Dim new_node As IXMLDOMNode

  ' Create the new node.
  Set new_node = parent.ownerDocument.createElement(node_name)

  ' Set the node's text value.
  new_node.Text = node_value

  ' Add the node to the parent.
  parent.appendChild new_node
End Sub

kan ikke få det til at virke :(
kan man ikke smide enkelt linie her i det her stump kode ? ....


    Dim tmpElement As MSXML2.IXMLDOMElement
    Dim nlItems As MSXML2.IXMLDOMNodeList
    Dim tmpNode As MSXML2.IXMLDOMNode
   
    Set nlItems = axResponse.responseXML.selectNodes("//item/nr")
    For Each tmpNode In nlItems
        Set tmpElement = tmpNode
   
    node kode her.....
   
    Next

har løst mig fra problemmet, kunne ikke løse det.. :(