>>972
VB４ですよ。なのでお約束の処理を。改行規制あるので分割です

>>972
VB4ですよ。なのでお約束の処理を

Public Function GetToken(BaseString As String, fieldNum As Integer) As String
' BaseString 切出し元の文字列
' FieldNum FieldNum番めを獲得する。
Dim Num As Integer 'カウンタ
Dim NewComma As Integer '次のカンマの位置
Dim LastComma As Integer '検索開始点

LastComma = 0
Num = 1
Do
NewComma = InStr(LastComma + 1, BaseString, ",")
If NewComma = 0 Then
If Num = fieldNum Then
GetToken = Trim(Mid(BaseString, LastComma + 1))
Exit Function
Else
GetToken = ""
Exit Function
End If