str = "0001,浦岡 友也,ウラオカ トモヤ,0003,0,2005/04/03,2005/06/19" aData = Split( str, "," ) For Each element In aData Wscript.Echo element Next