書き込まれる .Position= 0 'Positionをゼロに戻す .Type= adTypeText .LineSeparator= adCLf ' BOMは削っているが、テキストに変換する際に再度付与されるらしい。 .Charset= "UTF-8" ' この3行でUTF-8へ変換がされる(.LineSeparatorはなくても良い) UTF8ByteToString = .Read(ad...