One way:

sOut = sOut & DELIMITER & Right(String(vFieldArray(i), PAD) & _
.Offset(0, i), vFieldArray(i))


Left(.Offset(0, i).Text &
String(vFieldArray(i), PAD), vFieldArray(i))
In article .com,
wrote:

sOut = sOut & DELIMITER & Left(.Offset(0, i).Text &
String(vFieldArray(i), PAD), vFieldArray(i))