ParseArray

Option Explicit
Dim Parsed() As String
Dim DelimitChr As String
Dim DelimitNum As Integer

Private Sub Form_Load()
Dim X As Integer
DelimitChr = Chr(1)
Dim ExampleString As String
ExampleString = "1" & DelimitChr & "2" & DelimitChr & _
"3" & DelimitChr
Call CountDelimit(ExampleString)
Call ParseData(ExampleString)
Call DisplayInfo
End Sub

Private Sub CountDelimit(StrData As String)
Dim X As Integer
Dim NxtPos As Integer
DelimitNum = 0
Do
X = X + 1
NxtPos = InStr(NxtPos + 1, StrData, DelimitChr)
If NxtPos = 0 Then ReDim Parsed(DelimitNum): Exit Sub
DelimitNum = DelimitNum + 1
Loop
End Sub

Private Sub ParseData(StrData As String)
Dim X As Integer
Dim PrevPos As Integer
Dim NxtPos As Integer
For X = 1 To DelimitNum
PrevPos = NxtPos
NxtPos = InStr(NxtPos + 1, StrData, DelimitChr)
Parsed(X - 1) = Mid(StrData, PrevPos + 1, NxtPos _
- PrevPos - 1)
Next X
End Sub

Private Sub DisplayInfo()
Dim X As Integer
Dim RetVal As String
For X = 0 To DelimitNum
RetVal = RetVal & Parsed(X) & vbCrLf
Next X
MsgBox RetVal
End Sub