LibreOfficeでテキストファイルの内容を読み込む

Dim loadFilePath As String
loadFilePath = "/home/user/test.txt"
Dim simpleFileAccess As Object
simpleFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
Dim textInputStream As Object
textInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
Dim inputStream As Object
inputStream = simpleFileAccess.openFileRead(loadFilePath)
textInputStream.setInputStream(inputStream)
textInputStream.setEncoding("Shift-JIS")
Do Until textInputStream.isEOF()
    Dim line As String
    line = textInputStream.readLine()
    Print line
Loop
textInputStream.closeInput()