Buf = Join(Split(TestData(1).bikou,vbCr),Space$(1))も有りかと。ところでキャッジリターンだけで良いの?Windowsの規定の改行はキャッジリターン+ラインフィード(vbCrLf または Chr(13)+Chr(10))なので・・・