or:

    c00 = "A ; A"
    c01 = "A ; A+"
    MsgBox Split(c00, " ; ")(1) & " ; " & Split(c00, " ; ")(0) = c01