Change the line after Line Input to:
[VBA]s() = Split(Trim(str))[/VBA]