<?xml version="1.0" encoding="utf-8"?>
<Questions>
  <Question correctAnswer="2">
    <Text>Was ist deine Frage?</Text>
    <Answers>
      <Answer id="1">Frage 1</Answer>
      <Answer id="2">Frage 2</Answer>
      <Answer id="3">Frage 3</Answer>
      <Answer id="3">Frage 4</Answer> 
  </Answers>
  </Question>
  <Question correctAnswer="3">
    <Text>Was ist die Antwort auf deine Frage?</Text>
    <Answers>
      <Answer id="1">Antwort 1</Answer>
      <Answer id="2">Antwort 2</Answer>
      <Answer id="3">Antwort 3</Answer>
      <Answer id="3">Antwort 4</Answer>
    </Answers>
  </Question>
</Questions>

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim xDoc As XDocument
        Dim xRoot As XElement
 
        xDoc = XDocument.Load("XMLFile1.xml")
        xRoot = xDoc.Element("Questions")
 
        For Each question In xRoot.Elements("Question")
            Dim qText As String = question.Element("Text").Value
            Dim qCorrect As String = question.Attribute("correctAnswer").Value
 
            For Each answer In question.Elements("Answers").Elements("Answer")
                Debug.WriteLine(answer.Value)
            Next
        Next
    End Sub