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

Dim oSFA As Object, oOutText As Object
Dim FileURL As String

Sub Main
        oSFA = createUNOService("com.sun.star.ucb.SimpleFileAccess")
        FileURL = ConvertToURL("Полный/ПУТЬ/К/456.txt")
        oOutText = createUNOService("com.sun.star.io.TextOutputStream")
        oOutText.setOutputStream(oSFA.openFileWrite(FileURL))
        oOutText.WriteString("Hello World" & Chr(13) & Chr(10))
        oOutText.flush

End Sub