"There are multiple root elements. Line 2, position 2."

        Try
            xmlDoc.Load("C:\t.xml")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

<name>1</name>
<name>2</name>
<name>3</name>
<name>4</name>

• ÍNDICE DE SNIPPETS

Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
 
 
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim rawXML As String = _
      "<Company>" & _
      "  <Employee>" & _
      "    <name>John</name>" & _
      "    <Id>1</Id>" & _
      "    <email>John@xxxxxx.com</email>" & _
      "  </employee>" & _
      "  <employee>" & _
      "    <name>Sue</name>" & _
      "    <Id>2</Id>" & _
      "    <email>Sue@xxxxxx.com</email>" & _
      "  </employee>" & _
      "</Company>"
 
        Dim xmlDoc As New XmlDocument
        Dim employeeNodes As XmlNodeList
        Dim employeeNode As XmlNode
        Dim baseDataNodes As XmlNodeList
        Dim bFirstInRow As Boolean
 
        MsgBox("A")
        xmlDoc.LoadXml(rawXML)
        ' Este msgbox no se llega a ver
        MsgBox("B")
        employeeNodes = xmlDoc.GetElementsByTagName("name")
 
        For Each employeeNode In employeeNodes
            baseDataNodes = employeeNode.ChildNodes
            bFirstInRow = True
 
            For Each baseDataNode As XmlNode In baseDataNodes
                If (bFirstInRow) Then
                    bFirstInRow = False
                Else
                    MsgBox(", ")
                End If
                MsgBox(baseDataNode.Name & ": " & baseDataNode.InnerText)
            Next
        Next
    End Sub
End Class

Originally from http://www.autoitscript.com/forum/topic/28897-switch-ics/
'Changed to VBS, added arguments and fixed for private/public networkds by Dror Gluska 2012-06-25
'Dror Gluska (2012) - http://uhurumkate.blogspot.co.il/
 
 
option explicit
 
 
 
Main( )
 
sub Main( )
    dim objArgs, con, endis,con2
 
    Set objArgs = WScript.Arguments
 
    'WScript.Echo objArgs.Count
 
    if objArgs.Count > 0 then
        con = objArgs(0)
        con2 = objArgs(1)
        endis = objArgs(2)
 
        EnableDisableICS con,con2, endis 'true enables, false disables
 
    else
        DIM szMsg
        szMsg = "Invalid usage! Please provide the name of the connection as the argument." & vbCRLF & vbCRLF & _
                "Usage:" & vbCRLF & _
                " " + WScript.scriptname + " ""Public Connection Name"" ""Private Connection Name"" true/false"
        WScript.Echo( szMsg )
 
    end if
 
end sub
 
 
 
function EnableDisableICS(sPublicConnectionName, sPrivateConnectionName, bEnable)
 
    dim bFound
    bFound = FALSE
    dim oNetSharingManager, oConnectionCollection, oItem, EveryConnection, objNCProps
 
    set oNetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1")
     if (IsObject(oNetSharingManager)) = FALSE then
        Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object.")
        Exit function
    End if
 
    if (IsNull(oNetSharingManager.SharingInstalled) = TRUE) then
        Wscript.Echo( "Sharing is not available on this platform.")
        Exit function
    End if
 
 
 
     set oConnectionCollection = oNetSharingManager.EnumEveryConnection
    for each oItem In oConnectionCollection
        set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
        set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
         If objNCProps.name = sPrivateConnectionName Then
            bFound = True
           Wscript.Echo("Setting ICS Private to " & bEnable & " on connection: " & objNCProps.name)
            If bEnable Then
                EveryConnection.EnableSharing (1)
            Else
                EveryConnection.DisableSharing
            End if
        End if
    Next
 
    set oConnectionCollection = oNetSharingManager.EnumEveryConnection
    for each oItem In oConnectionCollection
        set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
        set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
 
        If objNCProps.name = sPublicConnectionName Then
            bFound = True
           Wscript.Echo("Setting ICS Public to " & bEnable & " on connection: " & objNCProps.name)
            If bEnable Then
                EveryConnection.EnableSharing (0)
            Else
                EveryConnection.DisableSharing
            End if
        End if
    next
 
    If Not bFound Then
       Wscript.Echo("Unable to find the connection " & sPublicConnectionName)
    End if
 
end function

'Declaration
Public Delegate Sub Action(Of In T1, In T2, In T3, In T4, In T5, In T6, In T7, In T8, In T9, In T10, In T11, In T12, In T13, In T14, In T15, In T16) ( _
	arg1 As T1, _
	arg2 As T2, _
	arg3 As T3, _
	arg4 As T4, _
	arg5 As T5, _
	arg6 As T6, _
	arg7 As T7, _
	arg8 As T8, _
	arg9 As T9, _
	arg10 As T10, _
	arg11 As T11, _
	arg12 As T12, _
	arg13 As T13, _
	arg14 As T14, _
	arg15 As T15, _
	arg16 As T16 _
)

    Imports System
    Namespace DelegateTest
    Public Delegate Sub TestDelegate(ByVal message As String)
 
    Class Program
    Public Shared Sub Display(ByVal message As String)
    Console.WriteLine("")
    Console.WriteLine("The string entered is : " + message)
    End Sub
 
    Shared Sub Main(ByVal args As String())
    '-- Instantiate the delegate
    Dim t As New TestDelegate(AddressOf Display)
 
    '-- Input some text
    Console.WriteLine("Please enter a string:")
    Dim message As String = Console.ReadLine()
 
    '-- Invoke the delegate
    t(message)
    Console.ReadLine()
    End Sub
    End Class
    End Namespace