chuẩn hoá chuỗi

Mình đang có một danh sách email chưa được chuẩn hoá định dạng email (xem trong file đính kèm). Trong file mình đã mô tả lỗi cụ thể của từng email. Các bạn giúp mình lập một Function trong VBA để giải quyết bài toán chuẩn hoá này. Xin cảm ơn các bạn đã giúp đỡ.