Dim Zeileabfrage As Integer = 1
                Do
                        Dim Process As Process
                        Process.Start(Dateienauslesen( _
                          "Programme\Windows\Ausführen.txt", Zeileabfrage))
                        Process.WaitForExit()
                    End If
                    Zeileabfrage += 1
                Loop Until Zeileabfrage = AnzahlderListeneinträge( _
                  "Programme\Windows\Liste.txt") 'ist nicht weiter wichtig