VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい

VBAを勉強中でネットで調べてもわからないので質問させてください。

VBAのフォーム内でテキストボックスを作成して、そのテキストボックスに
データというシートのセルA1の内容を表示させたいのですが
表示自体はうまくいくのですが、
セルA1の内容が
『あああ
　いいい』
と改行して入力されていても、テキストボックスには
『あああいいい』
と表示されてしまいます。

テキストボックス内も
『あああ
　いいい』
と表示するようにすることは可能なのでしょうか？

Private Sub UserForm_Initialize()
Dim Value_A1 As String
Value_A1 = Sheets("データ").Range("A1").Value
Me.Textbox1.Text = Value_A1
End Sub

このようなコードを作っています。

すいませんが教えてください。

No.3 ベストアンサー 回答者： めぐみん_ 回答日時： 2019/11/10 11:43

No.1です。

ダイレクト代入

Me.Textbox1.Text = Sheets("データ").Range("A1").Value

すると、検証の際はちゃんと改行されましたよ。
セル内の改行はAlt+Enterで行なっているのですよね？

あとはOS（Win以外）による改行コードの違い？？？？？？？？？って訳になるのかな。
Winしかないので検証できませんが。

この回答へのお礼

たびたびご回答ありがとうございます。

記載して頂いたコードに置き換えて実行してみたら
思うような表示になりました。

お忙しい中、ご回答していただきありがとうございました。

お礼日時：2019/11/10 16:21

No.4 回答者： GooUserラック 回答日時： 2019/11/10 11:47

もしかしてですが、[Alt]+[Enter]で改行したのではなく、書式設定で「折り返して全体を表示する」になっていて幅が狭くて折り

返されていたりしませんよね？

この回答へのお礼

ご指摘ありがとうございます。
セル内は[Alt]+[Enter]で改行しています。

お礼日時：2019/11/10 16:23

No.2 回答者： GooUserラック 回答日時： 2019/11/09 22:48

めぐみん_さんに１票

この回答へのお礼

ご回答ありがとうございます。

質問欄により詳しく書いておくべきでした。
すいません。
MultiLine プロパティはTrueにしているのですが
反映されないです。

お礼日時：2019/11/10 11:25

No.1 回答者： めぐみん_ 回答日時： 2019/11/09 22:28

TextBoxのMultiLine プロパティをTrueにしていないとか？

この回答へのお礼

ご回答ありがとうございます。

質問欄により詳しく書いておくべきでした。
すいません。
MultiLine プロパティはTrueにしているのですが
反映されないです。

お礼日時：2019/11/10 11:25