On Nov 8, 3:08 pm, Gary''s Student
wrote:
Insert a
MSGBOX(UBOUND(vntX)) to make sure all the parts are there.
--
Gary''s Student - gsnu2007a



" wrote:
The vntx(0)

Private Function SplitMe(strToSplit As String)
Dim vntX As Variant
vntX = Split(strToSplit, ",")
TxtFirstName = vntX(0) ' FirstName
TxtLastName = vntX(1) ' Last Name
CBOMoFa = vntX(2) ' Mother/Father
TxtChild = vntX(3) ' of Child
TxtIssued = vntX(4) ' DateIssue
TxtServed = vntX(5) ' Date Served

SplitMe = TxtFirstName & "," & TxtLastName
End Function- Hide quoted text -

- Show quoted text -

it shows that they are all there (5)