If文も変えると、もうほんの少し速くなりますね。 If dat Like "[0-9a-zA-Z]" ThenループカウンタをLong型にすると速くなるっていう話を以前聞きましたが、全然変わらなかったですf^_^;