'==============================================================
    'Split Sample                                                  '
    '==============================================================

    'Description    Returns a zero-based, one-dimensional array
    '               containing a specified number of substrings.
    
    'Syntax         Split(expression[, delimiter[, count[, compare]]])
        
    '               Part        Description
    '               ===============================================
    '               expression  Required. String expression
    '                           containing substrings and
    '                           delimiters. If expression is a
    '                           zero-length string, Split returns an
    '                           empty array, that is, an array with
    '                           no elements and no data.
    
    '               delimiter   Optional. String character used to
    '                           identify substring limits. If omitted,
    '                           the space character (" ") is assumed
    '                           to be the delimiter. If delimiter is
    '                           a zero-length string, a single-element
    '                           array containing the entire expression
    '                           string is returned.

    '               Count       Optional. Number of substrings to be
    '                           returned; -1 indicates that all
    '                           substrings are returned.

    '               compare     Optional. Numeric value indicating the
    '                           kind of comparison to use when
    '                           evaluating substrings. See Settings
    '                           section for values.

    'Settings
    'The compare argument can have the following Values:
    
    'Constant           Value       Description
    'vbBinaryCompare    0           Perform a binary comparison.
    'vbTextCompare      1           Perform a textual comparison.
    'vbDatabaseCompare  2           Perform a comparison based on
    '                               information contained in the
    '                               database where the comparison
    '                               is to be performed.
    Dim myArray
    Dim iLoop
    myArray = Split("Mike, Bill, Sue, John", ", ")
    For iLoop = 0 To UBound(myArray)
        MsgBox "myArray(" & iLoop & ") = " & myArray(iLoop), vbInformation, "Split Sample"
    Next