[VB 2008] Falsche Ausgabe bei XML-Auslese

[OnkelTimon]

Hallo Forum,

ich habe ein komisches Verständnisproblem. Es geht darum, mit XML Werten zu arbeiten, aber ich kann meinen Fehler nicht erkennen.
Ich möchte eine XML-Datei, die wie folgt aufgebaut ist, in einer Combobox und das Verzeichnis darunter in einer Listbox ausgeben.
Hier der Aufbau der XML Datei:

<?xml version="1.0" encoding="utf-8" ?>
<Wegmessung>
  <messung>
  <Aufnahme>10.10.2010 17:40</Aufnahme>
    <Messbeginn>
      <aktuelleID>abc</aktuelleID>
      <aktuelleZeit>17:40:01</aktuelleZeit>
      <aktuellerWeg>0</aktuellerWeg>
      <aktuelleID>1</aktuelleID>
      <aktuelleZeit>17:40:03</aktuelleZeit>
      <aktuellerWeg>3.5</aktuellerWeg>
      <aktuelleID>2</aktuelleID>
      <aktuelleZeit>17:40:05</aktuelleZeit>
      <aktuellerWeg>7</aktuellerWeg>
    </Messbeginn>
  </messung>
  <messung>
   <Aufnahme>20.10.2010 17:40</Aufnahme>
    <Messbeginn>
      <aktuelleID>Test</aktuelleID>
      <aktuelleZeit>10:40:01</aktuelleZeit>
      <aktuellerWeg>0</aktuellerWeg>
      <aktuelleID>1</aktuelleID>
      <aktuelleZeit>10:40:03</aktuelleZeit>
      <aktuellerWeg>3.5</aktuellerWeg>
      <aktuelleID>2</aktuelleID>
      <aktuelleZeit>10:40:05</aktuelleZeit>
      <aktuellerWeg>7</aktuellerWeg>
      <aktuelleID>3</aktuelleID>
      <aktuelleZeit>10:40:06</aktuelleZeit>
      <aktuellerWeg>10.5</aktuellerWeg>      
    </Messbeginn>
  </messung>
</Wegmessung>

In der ComboBox soll das Oberverzeichnis stehen (Ausnahmen), worüber man eine Auswahl trifft deren Werte dann in der Listbox aufgelistet werden sollen.
Leider bekomme ich in der Box nur die Ausgabe die dann wie folgt aussieht: <aktuelleID>Test</aktuelleID>

Imports System.Xml.Linq
Imports System.Xml.Serialization
Imports System.Xml

 Dim XDoc As New XDocument


    Private Sub XMLWegDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        XDoc = XDocument.Load("Aufzeichnung.xml")
        MessungEinlesen()

    End Sub

    Sub MessungEinlesen()
        Dim AlleWerte = From G In XDoc...<Wegmessung>...<Aufnahme> Select G.Value
        cbMessgruppe.DataSource = AlleWerte.ToList

    End Sub

    Private Sub cbMessgruppe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbMessgruppe.SelectedIndexChanged

        Dim Nummer = From B In XDoc...<Wegmessung>...<messung> Where B...<Aufnahme>.Value = cbMessgruppe.SelectedItem Select B

        cbMessung.DataSource = Nummer...<aktuellerWeg>.ToList
       
    End Sub

Bekomme es einfach nicht hin, diesen Wert umzuwandeln?

Vielen Dank!

LG
OnkelTimon