Split Text with Delimiter

[jaffey]

Hi Rick, your code works like a charm however it seems to bomb when it gets unexpected chars or no chars in a cell.

For example, I have some cells that contain only a "=" or just a period, or just an asterisk, an underscore or anything else and sometimes even nothing. Can it be modified to accept all chars or no chars?

note: I am using your code to split user notes are up to 512 chars in length. Before I use your code I use the function below to insert a unique delimiter every 79 chars which your code then picks up and makes the rows for me.



Function InsertComma(Text As String) As String
'inserts delimiter every 79 chars
If Len(Text) < 80 Then InsertComma = Text
Dim i As Integer
Dim t As String
t = Left(Text, 79)
For i = 80 To Len(Text) Step 79
t = t & "|||" & Mid(Text, i, 79)
Next i
InsertComma = t
Application.ScreenUpdating = True
End Function

[ashu1990]

try this before calling the function
if instr(your text,"characters") > 0 then
'''do your stuff'''
end if
this will help you to find if char or no char are present in the text