>>739
strLine = "1999,2000,2001"
intBasyo = InStr(1, strLine, ",")

だと思うけど