Imports <xmlns:my="xx.yy.zz">
 
Public Class ...
 
    Private Sub XmlTest()
 
        Dim doc = <?xml version="1.0"?><my:Root _
          xmlns:my="xx.yy.zz"><my:Test my:Name="Test" my:Place="Test2" _
          my:Date="01.05.2008"/><my:Test my:Name="Testx" my:Place="Testx2" _
          my:Date="02.05.2008"/></my:Root>
 
        Dim strMyID As String = doc.<my:Root>.<my:Test>.@my:Name
        Dim strMyPlace As String = doc.<my:Root>.<my:Test>.@my:Place
 
        For Each xel As XElement In doc.<my:Root>.<my:Test>
            Debug.WriteLine(xel.@my:Name)
        Next
 
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist