sError = "" for i = Lbound(array) to UBound(array) 'do a process that sets error_message sError = sError & error_message & vbCRLF & "<p>" next