La riga è questa ma l'errore viene evidenziato in Left
Do Until (Left (strTemp, 1) = vbCr) Or (Len(strTemp) = 0)

scusa, hai ragione
Claudio