Dim blnResult
Dim arrRegValue
Dim strTempRegValue
Dim strTemp
Dim intArrayIndex_RegValue
Dim blnMatchFound
 
Const strRegValueSeparator     = ","        '// or whatever the values are separated with
Const strSearch            = "SAMPLE"    '// this is the text you want removed from strValue

arrRegValue            = Split(strValue, strRegValueSeparator)
 
strTempValue            = ""
 
For intArrayIndex_RegValue = 0 To UBound(arrRegValue)
   strTemp            = arrRegValue(intArrayIndex_RegValue)
   blnResult        = StringMatch(strTemp, strSearch, blnMatchFound)
   If blnResult Then
       If Not blnMatchFound Then
           '// The strings didn't match the one we're searching for so add it to the temporary variable
           If Len(strTempValue) = 0 Then
               strTempValue = strTemp
           Else
               strTempValue =     strTempValue & strRegValueSeparator & strTemp
           End If
       End If
   End If
Next
 
'// Now write strTempValue to registry

 
 
'//=========================================================================================================
'//    Name:    StringMatch
'// Purpose:    Checks if two strings match
'//                Why not use 'If strFirst = strSecond', you're asking?
'//                Well, the 'Equals' operator :
'//                   - is not very fast (at string comparison)!
'//                   - compares strings left to right and is smart enough to stop comparing when it spots the first difference, but
'//                   - is too dumb to first do the most obvious test: comparing the lengths of the strings!
'//   Input:    strFirst                - the first string
'//        strSecond                - the second string
'//        blnMatch                - a Boolean indicating whether or not the strings matched
'//  Output:    None
'// Returns:    True/False
'//
'//=========================================================================================================
Function StringMatch(ByVal strFirst, ByVal strSecond, ByRef blnMatch)
 
   StringMatch = True
 
   blnMatch = False
 
   If LenB(strFirst) = LenB(strSecond) Then
       blnMatch = (InStrB(1, strFirst, strSecond, vbBinaryCompare) <> 0)
   End If
 
End Function