Læse xml fil - virker ikke

Jeg har genereret en xmlfil som ser således ud:

<Project>
  <Fornavn>Martin</Fornavn>
  <Efternavn>Sørensen</Efternavn>
  <Posnr>4200</Posnr>
  <Alder>23</Alder>
</Project>


Men hvordan kan jeg læse denne fil? Jeg har forsøgt med følgende:


    Public Sub Read()
        Dim xtr As New XmlTextReader("StageConfig.xml")
        Do While xtr.Read
            If xtr.NodeType = XmlNodeType.Element Then
                If Not xtr.Name = "Project" Then
                    Select Case xtr.Name
                        Case "Fornavn"
                            HandleFornavn(xtr.Value)
                        Case "Efternavn"
                            HandleEfternavn(xtr.Value)
                        Case "Posnr"
                            HandlePostnr(xtr.Value)
                        Case "Alder"
                            HandleAlder(xtr.Value)
                    End Select
                End If
            End If
        Loop
        xtr.Close()
    End Sub

Problemet er at xtr.Value er "" hvor jeg havde håbet på at jeg fik fat i værdien "Martin".

Hvad gør jeg galt?