今のVBAには同様の関数があるはずですが（splitだったかな？）　  Sub  testSlice() Dim ret As Variant Dim str As Variant Dim dat A [...]