Tokenize.bas

' rng: Cell chứa chuỗi cần cắt 
' c : chuỗi con dùng làm delimiter 
' n : vị trí chuỗi con cần lấy (bắt đầu từ 0) 
Function TokenizeAt(rng As Range, c As String, n As Integer)
    Dim ret As String
    
    If (rng.Cells.Count > 1) Then
        ret = "Only allow 1 cell"
    End If
    
    Dim strArr() As String
    
    strArr = Split(rng, c)
    
    ret = strArr(n)
    
    TokenizeAt = ret
End Function