Tu as essayé avec quelques choses comme cela où tu écrirais par Print les octets que tu veux ?
Sub test()
Dim path As String, FileNumber
FileNumber = FreeFile
path = "C:\Users\xxxxx\Documents\File"
Open path For Append As #FileNumber
Print #FileNumber, "String souhaité"
Print #FileNumber, vbLf
Close #FileNumber
End Sub