Read and Write a tmdx file With BasicMaker

[Gimy]

' ===I work with BasicMaker====STEP 1
' I open direct a TEST.tmdx file that I pre set in TextMaker.
' The file have different Font.size and different color in text
FName = "c:\TEST.tmdx"
FNum = FreeFile
Open FName For INPUT As #FNum
'...............
Dim LineData$(34)
'...............
' I input the 33 line in a var
For Trow = 0 TO 33
Line Input #FNum, LineData$(FNrow) ' Read line
Next FNrow
CLOSE #FNum

' When I write the LineData$ back to TEXT.tmdx
' is a text non describable

' How I find all the characteristic
' I try some
'Dim tm As Object
'Dim FName as Object
'Set tm = CreateObject("TextMaker.Application")
'tm.Visible = True
'Set FName = tm.Documents.Add
'tm.Application.Documents.Add ' Create an empty document
'tm.Documents.Add
' in Anyway BUT I have all time ERROR
' must all BE in the:
' With tm.Application
' ...............
' End With
' .....
' ONE is tm Object that is in general a new add
' and Two is My Direct TEST.tmdx with the characteristic that I want


' ===THE ====STEP2=== is to Modif. The TEST.tmdx and Output them

Hope is more clear, someone can Help?