excelVBAでstrtokの代わりはSplit関数

Sub Sample1()
    Dim tmp As Variant
    tmp = Split("123,田中,tanaka", ",")
    MsgBox tmp(0)
    MsgBox tmp(1)
    MsgBox tmp(2)
End Sub

ネタ元