' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
'
' You are free to use this code in any application,
' provided this notice is left unchanged
'
'==============================================================================
' NAME: GetListItem
' PURPOSE: Gets the value of an item in a string list
' RETURNS: Variant, value of the item in the list, Null on error/not found
' ARGUMENTS: sList - string to pull from
'            sItem - identifier of the item
'            optional sDelimiter - list delimiter
' USAGE:
'   ex:
'   =GetListItem("ITEMTYPE=5;ITEMCODE=1343", "ITEMTYPE")
'   Returns 5
'
' DEPENDANCIES:
'   Access 97 and earlier require a custom Split() function.
'
' REVISIONS:
'  REV |    DATE    | REV TYPE | DESCRIPTION
'------------------------------------------------------------------------------
'  R01   8/22/2010    INITIAL
'  R02   8/27/2010    MINOR      Added functionality for values passed either
'                                with or without ";<value>=" wrapper
'
'==============================================================================
'ErrHandler V3.01
Public Function GetListItem( _
   sList As String, _
   sItem As String, _
   Optional sDelimiter As String = ";" _
   ) As Variant
On Error GoTo Error_Proc
Dim Ret As Variant
Ret = Null
'=========================
 Dim v As Variant 'array to hold the items and their values
 Dim l As Long 'counter
'=========================

 'prep the item
 If Left(sItem, 1) = sDelimiter Then
   sItem = Right(sItem, Len(sItem) - 1)
 End If
 If Right(sItem, 1) <> "=" Then
   sItem = sItem & "="
 End If

 v = Split(sList, sDelimiter)
 
 For l = 0 To UBound(v)
   If Left(v(l), Len(sItem)) = sItem Then
     Ret = Right(v(l), Len(v(l)) - Len(sItem))
     Exit For
   End If
 Next

'=========================
Exit_Proc:
 GetListItem = Ret
 Exit Function
Error_Proc:
 Select Case Err.Number
   Case Else
     MsgBox "Error: " & Trim(str(Err.Number)) & vbCrLf & _
       "Desc: " & Err.Description & vbCrLf & vbCrLf & _
       "Module: modCmnUtilStrings, Procedure: GetListItem" _
       , vbCritical, "Error!"
 End Select
 Resume Exit_Proc
 Resume
End Function