Bạn dùng hàm tự tạo này xem có đúng không?
Function removeuid(chuoi As String)
Dim ar, uid
ar = Split(chuoi, " (")
For i = LBound(ar) To UBound(ar) - 1
uid = Split(ar(i), " ")
ar(i) = Replace(ar(i), uid(UBound(uid)), "")
Next
removeuid = Join(ar, "(")
End Function