In diesem Beispiel wird die Close-Anweisung zum Schließen von drei Dateien verwendet, die mit dem Zugriffsmodus Output geöffnet waren.
Dim I, Dateiname For I = 1 To 3 ' Schleife dreimal durchlaufen. Dateiname = "TEST" & I ' Dateiname erstellen. Open Dateiname For Output As #I ' Datei öffnen. Print #I, "Ein Test." ' Zeichenfolge in Datei schreiben. Next I Close ' Alle 3 geöffneten Dateien ' schließen.