Ehhh... there is a typo:

repalce this: arLines = Split(sText(, vbNewLine))

with this: arLines = Split(sText, vbNewLine)

Sorry about that.