Sub WriteIt()
'requires a reference to the Windows Script Host Object Model
On Error Resume Next
Dim FSO As FileSystemObject
Dim tsInput As TextStream
Dim strFile As String
Dim strLine As String
Dim i As Integer
i = 0
strFile = "C:\fichier.txt"
Set FSO = New FileSystemObject
Set tsInput = FSO.OpenTextFile(strFile, ForWriting)
tsInput.Write (Chr$(127))
tsInput.Close
Set FSO = Nothing
End Sub