mettendo:
var = Replace(var, vbLf, vbNullString, 1, 1)

elimina una delle due righe vuote, dopo se provo a vedere con un msgbox l'hex della stringa mi dice che non ci sono altre righe vuote, eppure una volta creato il file mi fa una riga vuota (non più due)

Qualcuno sa perchè?
ciao a tutti