...sempre per la cronaca se tu volessi eliminare ogni "a capo" potresti anche usare un'unica operazione di stringa, con Replace.
Cioè se usi tante sottostringhe: var2, var3, var4, ecc. anziché dare ad ognuna un Trim, puoi usare direttamente sulla stringa finale var1 il Replace (che tra l'altro è anche più selettivo sul taglio da operare sulla stringa):
var1 = Replace(var2 & " parole " & "'ancora parole'" & var3 & "ancora altre parole'" & var4, "\n", "")
Te la leggo come se fossi gambas --> in tutta la stringa trova ogni "\n" (che sono gli 'a capo') e sostituiscilo ognuno con "" (nullo).
La differenza con l'usare ogni volta i Trim(varX) è che il Replace lo usi una volta solamente e non toglie spazi o altri caratteri (inf32), ma è specifico per i ritorni a capo.