Ti posto il codice variato, io ho considerato a = "CD", se invece a = "CD," il len deve essere = 3:


codice:
    If Left(a, 2) = "CD" Then 'a = "CD, EF" oppure a = CD
        If Len(a) = 2 Then
            a = ""
        Else
            a = Mid(a, 5)
        End If
    ElseIf Right(a, 2) = "CD" Then 'a = "AB, CD"
        a = Mid(a, 1, Len(a) - 4)
    Else
        X = InStr(1, a, "CD") 'a = "AB, CD, EF"
        If X > 0 Then
            a = Mid(a, 1, X - 2) & Mid(a, X + 4)
        End If
    End If
Ciao