下記の方法でByte型に入れることは出来ましたが、何か他に効率よく書けないも
のですかねぇー。
ぐるぐる回すのがダサいです。


Dim aaa(100) As Byte
Dim str As String

str = "ぼく　どらえもん"

For i = 0 To 15
aaa(i) = AscB(MidB(StrConv(str, vbFromUnicode), (i + 1), 1))
Next i


そもそもは、FlushFileBuffersが使用したくて、VBでWriteFileを使用してファイ
ル書込みしています。

というのも、VBのOpenステートメントで開いて、書込みをしている最中にエディタ
などから、該当のファイルを開いたりすると、文字が途中できれてしまいます。
それを無くすために、FlushFileBuffersが使えるのではないかと思いました。