例: StrToken function

Sub Initialize
   Dim delim As String
   Dim ret As String
   Dim teststr as string
   teststr = "Art, Business, Computers, Education"
   delim = ", "
   ret = strtoken(teststr, delim,3)
   Print ret	
End Sub
'OUTPUT
'Computers