下記のように追加しても同じでしょうか?Dataの中に間違いなくvbTabが存在していますか? Open "data.dat" For Binary As #3 Get #3, , Data Close #3 Data = StrConv(Data, vbUnicode) AddData() = Split(Data, vbTab)