REM  *****  BASIC  *****

Dim oSFA As Object, oInText As Object
Dim FileURL As String
Dim TheLine As String

Sub Main

        oSFA = createUNOService("com.sun.star.ucb.SimpleFileAccess")
        FileURL = ConvertToURL("Полный/ПУТЬ/К/123.txt")
        oInText = createUNOService("com.sun.star.io.TextInputStream")
        oInText.setInputStream(oSFA.openFileRead(FileURL))
        TheLine = oInText.readLine()
        msgBox TheLine
        oInText.closeInput()

End Sub