https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9534#CommentId14107
投稿者 YAYA  (社会人) 投稿日時 2010/1/30 04:31:52
環境がないので
なんちゃってなら

Dim Str As String
Str = Me.テキスト0
Str = Replace(Str, vbNewLine, "↓" & vbNewLine)
Me.テキスト0 = Str
0