ASCII-Daten einlesen

Sub IntTextDatei()
Dim rng As Range
Dim iRow As Integer, iCol As Integer, iFile As Integer
Dim sFile As String, sTxt As String
Set rng = Range("A1").CurrentRegion
sFile = "D:\Eigene Dateien\testtext.txt"
'   sFile = Application.Path & "/testtext.txt"
iFile = FreeFile
Open sFile For Output As iFile
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Value & ","
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
Close iFile
rng.ClearContents
MsgBox "Habe die Daten in eine Textdatei eingelesen!"
End Sub

Sub AusTextDatei()
Dim iRow As Integer, iFile As Integer
Dim sFile As String, sTxtA As String, sTxtB As String
sFile = "d:\Eigene Dateien\testtext.txt"
'   sFile = Application.Path & "/testtext.txt"
If Dir(sFile) = "" Then
MsgBox "Die Daten wurden nicht eingelesen!"
Exit Sub
End If
iFile = FreeFile
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, sTxtA, sTxtB
iRow = iRow + 1
Cells(iRow, 1).Value = sTxtA
Cells(iRow, 2).Value = sTxtB
Loop
Close
Kill sFile
MsgBox "Habe die Daten ausgelesen!"
End Sub