Dim sFile As String, sContent As String
 
sFile = "c:	empsource.txt"
Open sFile For Input as #1
Do
  Line Input #1,sContent
  ' wenn nötig, weitere Verarbeitung von sContent
Loop Until EOF(1)
Close #1

Dim sFile As String, sContent As String
 
sFile = "c:	empsource.txt"
Open sFile For Output as #1
Print #1,sContent
Close #1