+ Tui sửa lại 1 chút chỗ thêm 01 space vào trước và sau dấu phân cách thôi, bạn xem ổn chưa nhé.
Function DaoViTri(ByVal Chuoi As String, ByVal PhanCach As String) As String
If VBA.InStr(1, Chuoi, PhanCach, vbTextCompare) = 0 Then Exit Function
Dim Temp As Variant
Dim Temp2 As...