>>812
Dim kinnko as variant
kinoko = split("simeji, matsutake, nameko, kawatani", ",")


とかになっちまいますね。