String Split in vba

Sub SplitValue() 
    Dim avarSplit As Variant 
    Dim intIndex As Integer 
    avarSplit = Split(Range("A1").Value, ",") 
    For intIndex = LBound(avarSplit) To UBound(avarSplit) 
        MsgBox "Item " & intIndex & " is " & avarSplit(intIndex) & _ 
        " which is " & Len(avarSplit(intIndex)) & " characters long", vbInformation 
    Next 
End Sub