VBAにより作成した関数の返り値をセル内で改行したいのですが、どうした

質問

VBAにより作成した関数の返り値をセル内で改行したいのですが、どうしたら良いのでしょうか？

Private Function txtdate(filepass As String)

Dim fileNo As Integer
Dim count As Integer
Dim outline As String
Dim buf

fileNo = FreeFile
Open filepass & ".txt" For Input As #fileNo '

Do Until EOF(fileNo)
Line Input #fileNo, buf
If count = 0 Then
outline = outline & buf
MsgBox outline
Else
outline = outline & vbLf & buf
MsgBox outline
End If
count = count + 1
Loop

Close #fileNo
txtdate = outline

End Function

このような形でテキストファイルの中身を読み込んでセルに反映させるという事をおこないたいのですが、テキストの内容が2行以上の場合、帰ってくる値に改行を入れたいと思っております。
17行目にそれらしくvblfを追加したのですがセルに上手く反映されません。msgboxで確認したところmsgboxでは問題無く改行が反映されているようなのですが…
エクセルセル内で「=txtdate("適当なテキストファイルのパス名")」という形で関数を呼び出しています。
どなたか対処法教えていただければ幸いです。よろしくお願い致します。

回答No.2

1050 円（@1050YEN） · ベストアンサー

見かけは改行されていませんが、データとしては改行がされているはずです。
→　msgbox(ActiveCell)
これで改行されていないように見えるセルの内容を確認して見ましょう。

なぜ改行されないかは、セルが改行表示を、初期セルは行わないようになっているからです。
セルのプロパティで改行表示を設定しましょう。

お礼

解決できました！
ありがとうございます。

回答No.1

n-jun

Function abc(a As String) As String

abc = "ABC" & vbCrLf & a

End Function

vbCrLf なのでは？

お礼

回答ありがとうございます。
vbCrLf でも同様の結果になってしまいました。
ちなみにn-jun様記載の関数を「=abc("test")」という形で回してみてもセル内の表示結果は「ABCtest」となってしまいます。