'==============================================================
    'Replace Sample                                               '
    '==============================================================

    'Description    Returns a string in which a specified substring
    '               has been replaced with another substring a
    '               specified number of times.
    
    'Syntax         Replace(expression, find, replacewith[, Start[, count[, compare]]])
        
    '               Part        Description
    '               ===============================================
    '               expression  Required. String expression
    '                           containing substring to replace.
    '               find        Required. Substring being searched for.
    '               replacewith Required. Replacement substring.
    '               Start       Optional. Position within expression
    '                           where substring search is to begin.
    '                           If omitted, 1 is assumed.
    '               Count       Optional. Number of substring
    '                           substitutions to perform. If omitted,
    '                           the default value is -1, which means
    '                           make all possible substitutions.
    '               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 myString
    myString = "Mike, Bob, Sue, Frank"
    myString = Replace(myString, ", ", vbCrLf)
    MsgBox myString, vbInformation, "Replace Sample"