Dim iFile As Integer
    Dim sCont As String
    iFile = FreeFile()

    Open "~/xyz.odt" For Input As #iFile    'Input geht; Binary führt in der nachfolgenden Schleife zu einem Fehler weil über das Dateiende hinaus gelesen wird

Do while not EOF(iFile)
  Line Input #iFile, s
  sCont = sCont & s
Loop

    Close #iFile