バイナリでファイルを開きLOF関数でファイルのバイト長を取得します。ファイルの末尾+1にSeek関数で移動し書き込むことで追加の書き込みになります。Open strFile$ For Binary As #ff% Seek #ff%, LOF(ff%) + 1& Put #ff%, , sngData!()Close ff%