Dim content = "Hello World!"
fileAccessService = createUnoService("com.sun.star.ucb.SimpleFileAccess")
textOutputStream = createUnoService("com.sun.star.io.TextOutputStream")

 If fileAccessService.exists(SaveFileName) Then
 	If fileAccessService.isReadOnly(SaveFileName) Then
        MsgBox "Could not write to file: " & SaveFileName
 		Exit Function
	End If
 End If
 'now open the file..
 outputStream = fileAccessService.openFileWrite(SaveFileName)		

 outputStream.truncate()
 textOutputStream.setOutputStream(outputStream)
 textOutputStream.writeString(content)

 'Close the Xml File, no writing possible anymore
 textOutputStream.closeOutput()

'msgbox "xml saved under: " & SaveFilename