Excel VBA Split Text in Cell wit vbLF for multple Cells

I am using the macro below to split text in a cell that text with line feeds in it to separate rows.

Please Login or Register  to view this content.

I am trying to modify it to also have an inputbox specify the delimiter when it is not a line feed (sometime a space), but I am only getting back the first value. Any ideas as to what the problem is? Non-working code is as follows:

Please Login or Register  to view this content.

Disregard..apparently, I Dim'ed the Delimiter incorrectly..Should be

Please Login or Register  to view this content.