Position = 0 ' Binaryに変換するため0位置にする。 .Type = adTypeBinary ' .Position = 2 ' BOMを示すために、コメントにしているが、本当に使う場合にはこちらも使う。先頭の2ByteのBOMをSkipする。 UTF16EEEFbyte = .Read(-1) Call GarbageADODB End With End Function なお、上記の...