ciao, ho trovato questo:
codice:
 
Function saveUnicode(buffBody As String, fileName As String)
    On Error GoTo err1
    Dim fileHead(1) As Byte, fileBody() As Byte
    fileHead(0) = 255
    fileHead(1) = 254
    fileBody = buffBody
    Open fileName For Binary As #1
    Put #1, 1, fileHead
    Put #1, 3, fileBody
    Close #1
    saveUnicode = 0 'success
    GoTo over
err1:
    saveUnicode = 1 'fail
over:
End Function
Però il problema è che ora non so come fare più righe.
Cioè con questa Funz scrivo un unica riga nel file, non più di una!