Mit diesem Beispiel sollen alle Dateien eines bestimmten Typs - das sollten
vorzugsweise von Excel unterstützten Typen sein - geöffnet. Zusätzlich werden
in der Do While - Schleife die Dateien gezählt. Vor Verlassen der Funktion wird
der Dateizähler dem Rückgabewert der Funktion zugewiesen. Sollte es beim Öffnen zu einem
Fehler kommen, wird die Schleife verlassen und in der Fehlerbehandlung der Dateizähler
dem Rückgabewert der Funktion auch hier zugewiesen.