Dim BOB(3) As String ' Nehmen wir an das Array hat 4 Elemente
 
' Hier legen wir die Inhalte des Arrays fest
BOB(0) = "Eins"
BOB(1) = "Zwei"
BOB(2) = "Drei"
BOB(3) = "Vier"
 
' Jetzt speichern wir nacheinander alle Elemente des Arrays in einer Textdatei
Dim Pfad As String, n As Integer
Pfad = App.Path & "\Textdatei.txt" ' Unsere Textdatei kommt in den Ordner des 
' Progs
 
Open Pfad For Output As #1
' Alle Elemente durchlaufen
For n = 0 To 3
Print #1, BOB(n)
Next n
Close #1
 
' Fertig!