Guarda ho appena risposto ad un tread identico, se leggi nei tread lo trovi tra i primi

comunque

codice:
Open strFile For Append As #1
    Print #1, strText
    Close #1

Per andare a capo stringa e vbNewLine