Use the following function (I place it in a global subs module) to return a specific value from a comma separated string. Just pass the string of values and the number of the item you wish to return. If you pass an index that does not correspond to a position in the string, a blank string is returned. This can easily be modified to look for a separator other than a comma, and to return something else when the index is out of bounds.
Public Function GetCsvValue(strLine As String, Index As Integer) As String
Dim intAbsIndex As Integer ' Actual array position of index (1 less than # passed)
Dim strElements() As String ' Array to hold elements extracted from string
Dim strRetVal As String ' Value to be returned
intAbsIndex = Index - 1
strElements = Split(strLine, ","

' Change "," to change separator
' Check to see if index value is valid for this array
If (intAbsIndex < LBound(strElements)) Or (intAbsIndex > UBound(strElements)) Then
strRetVal = "" ' Value returned when index is out of bounds
Else
strRetVal = strElements(intAbsIndex)
End If
GetCsvValue = strRetVal
End Function