excelVBAでstrtokの代わりはSplit関数

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

ネタ元

• http://officetanaka.net/excel/vba/tips/tips62.htm