Скажите, если я не понимаю ваш вопрос, но вы не можете просто добавить родительский элемент ", содержащий все строки?
Dim sbUser As New System.Text.StringBuilder
sbUser.AppendLine("<?xml version=""1.0""?>")
sbUser.AppendLine("<root>")
sbUser.AppendLine("<services>")
For Each item As KeyValuePair(Of Integer, Users) In dictusers
sbUser.AppendFormat("<Name>""{0}""<SessionID>""{1}""</SessionID><UserName>{2}</UserName></Name>", item.Key, item.Value.SessionID, item.Value.UserName).AppendLine()
Next
sbUser.AppendLine("</services>")
sbUser.AppendLine("<cpus>")
...
sbUser.AppendLine("</cpus>")
...
sbUser.AppendLine("</root>")