Visual Basic

<br />
        Dim doc As New Xml.XmlDocument<br />
        'load file <br />
        doc.Load("C:\Err.xml")<br />
        Dim root As XmlNode = doc.DocumentElement<br />
<br />
        If root Is Nothing Then<br />
            'if this is a new document create root <br />
            root = doc.CreateElement("Books")<br />
        Else<br />
            'add the new node <br />
            Dim newNode As Xml.XmlElement = doc.CreateElement("Book")<br />
            'add attributes <br />
            newNode.SetAttribute("type", 3)<br />
            'add children nodes if any <br />
            Dim child As Xml.XmlElement = doc.CreateElement("Author")<br />
            child.InnerText = "rr"<br />
            newNode.AppendChild(child)<br />
            child = doc.CreateElement("Section")<br />
            child.InnerText = "rr"<br />
            newNode.AppendChild(child)<br />
            'add new node to users node <br />
            root.AppendChild(newNode)<br />
        End If<br />
        'save doc <br />
        doc.Save("C:\Err.xml")<br />
<br />

<br />
Dim S As String = "Test"<br />
<br />
S.Chars(0) ' contains T<br />
S.Chars(1) ' contains e<br />
S.Chars(2) ' contains s<br />
S.Chars(3) ' contains t<br />

<br />
Dim S As String = "Test"<br />
<br />
S.ToCharArray(2, 2) ' returns "st" because s is the the third index<br />
'of "Test" (zero based array) and the length of the returned array (second<br />
'parameter of the ToCharArray function) is 2.<br />

' Test to see if there is a copy of Microsoft Excel already running.
On Error Resume Next   ' Defer error trapping.
' Getobject function called without the first argument returns a
' reference to an instance of the application.
' If the application is not running, an error occurs.
MyXL = GetObject(, "Excel.Application")
If Err().Number <> 0 Then ExcelWasNotRunning = True
Err().Clear() ' Clear Err object in case error occurred.