Line Input で読み込んでtmp = Replace(tmp,vbCr,vbCrLf)tmp = Replace(tmp,vbLf,vbCrLf)その後 tmp を Print すれば良いでしょう。試して下さい。