Experts Exchange connects you with the people and services you need so you can get back to work.
Function SplitItem(Index As Long, InputStr As String, Optional Delimiter As String = " ", _
Optional Limit As Long = -1, Optional CompareMode As VbCompareMethod = vbTextCompare)
Dim arr As Variant
Dim GetMember As Long
SplitItem = ""
If InputStr <> "" Then
arr = Split(InputStr, Delimiter, Limit, CompareMode)
If Index = 0 Then
GetMember = UBound(arr)
ElseIf Index > 0 Then
GetMember = Index - 1
GetMember = UBound(arr) + Index + 1
If GetMember >= LBound(arr) And GetMember <= UBound(arr) Then
SplitItem = arr(GetMember)
Open in new window
Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
Author Closing Comment
Your question, your audience. Choose who sees your identity—and your question—with question security.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!