Dim oStream As TextStream
Dim filename As String
 
  filename = App.Path
 
  If Right(filename, 1) <> "\" Then
    filename = filename & "\"
  End If
 
  filename = filename & "Hilfsdateien\Testfile.txt"
 
  MsgBox filename
  Set oStream = oFSO.OpenTextFile(filename, ForReading)
  Dim sText As String
  sText = oStream.ReadAll