Splitting strings, error subscript out of range
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
|