German XML Read und Exit Sub

Sub Process_Globals
   Dim XMLparser As SaxParser
End Sub

Sub Globals
   Dim Nummer, Passwort As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
      XMLparser.Initialize
   End If
........
........
End Sub

Sub btn_passwort_OK_Click
   Msgbox (tb_passwort.Text, "Information")
      Dim in As InputStream
      in = File.OpenInput(File.DirAssets, "daten.xml")
      XMLparser.Parse(in, "Parser")
      in.Close
End Sub

Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
   If XMLparser.Parents.IndexOf("row") > -1 Then
      
      If Name = "Nummer" Then
         Nummer = Text.ToString      ' Nummer=1
      Else If Name = "Passwort" Then
         Passwort = Text.ToString     ' Passwort= 12345
         If  Passwort = tb_passwort.Text Then
            Msgbox ("Passwort ist richtig", "Information")
                               ' exit sub     HIER GEHT NICHT
                               ' exit           GEHT AUCH NI'CHT
'         Else
'            Msgbox ("Passwort ist falsch", "Information")
         End If
      End If
   End If
   
End Sub

If  Passwort = tb_passwort.Text Then
  ' Msgbox ("Passwort ist richtig", "Information")
  Return
End If

<row>
     <Nummer>1</Nummer>
     <Passwort>12345</Paswort>
</row>
<row>
     <Nummer>2</Nummer>
     <Passwort>222</Passwort>
</row>
<row>
     <Nummer>3</Nummer>
     <Passwort>333</Passwort>
</row>
<row>
     <Nummer>4</Nummer>
     <Passwort>444</Passwort>
</row>
<row>
     <Nummer>5</Nummer>
     <Passwort>555</Passwort>
</row>
<row>
     <Nummer>6</Nummer>
     <Passwort>666</Passwort>
</row>
<row>
     <Nummer>7</Nummer>
     <Passwort>777</Passwort>
</row>

Sub Globals
    Dim Nummer, Passwort As String
    Dim PasswortIsRichtig As Boolean
End Sub

Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
 [...]
  If Passwort = tb_passwort.Text Then
    PasswortIsRichtig = True
  End If
 [...]
End Sub

Sub btn_passwort_OK_Click

  Msgbox (tb_passwort.Text, "Information")
  
  PasswortIsRichtig = False

  Dim in As InputStream
  in = File.OpenInput(File.DirAssets, "daten.xml")
  XMLparser.Parse(in, "Parser")
  in.Close

  If PasswortIsRichtig = True Then
    Msgbox ("Passwort ist richtig", "Information")
  Else
    Msgbox ("Passwort ist falsch", "Information")
  End If

End Sub