Una soluzione ai casi che hai evidenziato potrebbe essere questa:

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