Hallo zusammen, vielleicht könnte mir jemand helfen, wäre ganz nett, ich möchte mehrere Dateien vom Typ CSV einlesen und später wiederrum ausgeben, ich bekomme es aber nicht hin, ich kann nur ein Datei einlesen, mit 2 oder mehrere dateien klappt es leider noch nicht, programmiere zum ersten mal VB 
Danke vorraus, mein Code:
'Datei wird eingelesen und ausgegeben
Private Sub Befehl16_Click()
On Error GoTo Err_Befehl16_Click
Dim FSO As New FileSystemObject
Dim txt As TextStream
With CommonDialog1
CommonDialog1.DialogTitle = „Open Excel_File“
.initdir = „C:“
CommonDialog1.filter = „Exel File (*.csv)|*.csv|All Files (*.*)|*.*“
’ Flags zum markieren von mehreren Dateien,
’ und zur Explorer-Style Ansicht
CommonDialog1.Flags = &H200 + &H80000 'cdlOFNReadOnly
CommonDialog1.Action = 1
CommonDialog1.ShowOpen
Set txt = FSO.OpenTextFile(CommonDialog1.filename, ForReading)
Dim strText As String
Dim strTeile() As String
Dim i As Long
Dim tmp As String
While Not (txt.AtEndOfStream)
strText = txt.ReadLine
strTeile() = Split(strText, „;“)
tmp = " "
For i = 0 To UBound(strTeile)
'For i = UBound(strTeile) To LBound(strTeile)
'Debug.Print strTeile(i)
tmp = tmp & strTeile(i)
'Debug.Print strText
Next i
Debug.Print tmp
Wend
End With
Nixwieweg:
'MsgBox („Datei oder Ordner nicht vorhanden!“)
Exit Sub
Err_Befehl16_Click:
Resume Nixwieweg
End Sub