I code my program somthing like this...
ObjXML.Load("my_data.xml")
If ObjXML.ParseError.ErrorCode = 0 Then
Set ObjRoot = ObjXML.CreateElement("poll_detail")
ObjXML.DocumentElement.AppendChild ObjRoot
Set ObjSub = Objxml.CreateElement("user_vote")
ObjSub.Text = vVote & ""
ObjRoot.AppendChild ObjSub
Set ObjSub = Objxml.CreateElement("user_problem")
ObjSub.Text = vProblem & ""
ObjRoot.AppendChild ObjSub
ObjXML.Save("my_data.xml")
End If

After run above code, My program will be do all process well but when I see my XML file (my_data.xml) all data be contained in one line like this

<?xml version="1.0" encoding="windows-874"?>
<poll_data><poll_detail><user_vote>5</user_vote><user_problem>nothing</user_problem><poll_detail></poll_detail><user_vote>4</user_vote><user_problem>OK</user_problem></poll_detail></poll_data>

How can I code it for result like this

<?xml version="1.0" encoding="windows-874"?>
<poll_data>
<poll_detail>
<user_vote>5</user_vote>
<user_problem>nothing</user_problem>
</poll_detail>
<poll_detail>
<user_vote>4</user_vote>
<user_problem>OK</user_problem>
</poll_detail>
</poll_data>