Private Sub cmdLesen_Click()
Dim fso As New FileSystemObject
Dim filename As File
Dim oStream As TextStream
Set filename = fso.GetFile(Pfad)
Set oStream = filename.OpenAsTextStream(ForReading)
Line = oStream.ReadLine
txtTest.Text = Line
End Sub