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.