CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to delete a string in another comma delimited string
Public Function DeleteElement(ByVal strtext As String, strDelimiter As String, _
    Optional ByVal intRemoveElementNo As Integer = 0)
    Dim strFinalText As String
    Dim strElements() As String
    Dim I As Integer
 
    strElements = Split(strtext, strDelimiter)
 
    For I = LBound(strElements) To UBound(strElements)
        If Not I = intRemoveElementNo Then
            If Not I = UBound(strElements) Then
                strFinalText = strFinalText & strElements(I) & strDelimiter
            Else
                strFinalText = strFinalText & strElements(I)
            End If
        End If
    Next I
 
    DeleteElement = strFinalText
    'Debug.Print DeleteElement
End Function
'How to call this procedure:
'msgbox DeleteElement ("1, 12, 55, 5,4" , ",", 0)