>593
こんな感じになりますた。

Dim a As Short
a = 10
FileOpen(1, "test.txt", OpenMode.Output)
PrintLine(1, "data=" & a & "[m]")
FileClose(1)

一応動くみたい。