Листинг 3. Функция GetToken

Function GetToken(ByVal strLine, ByVal strDelim, ByVal lngToken)
 Dim strToken, arrTokens
 strToken = «»
? BEGIN CALLOUT A
 If (Len(strLine) > 0) And (Len(strDelim) > 0) And (lngToken > 0) Then
  arrTokens = Split(strLine, strDelim)
? END CALLOUT A
? BEGIN CALLOUT B
  lngToken = lngToken - 1
  If lngToken <= UBound(arrTokens) Then
   strToken = Trim(Replace(arrTokens(lngToken), «»»», «»))
? END CALLOUT B
  End If
 End If
 GetToken = strToken
End Function