テキストボックスで、任意の文字数で改行するには？ (ID:123534)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim iFile As Integer Dim strReadData As String Dim p As Long 'テキストファイル読み込み。 Open FileName For Binary Access Read Lock Read Write As #iFile strReadData = StrConv(InputB(LOF(iFile), #iFile), vbUnicode) Close iFile '１０文字ずつ改行。 txt1.Text = "" For p = 1 To Len(strReadData) Step 10 txt1.SelText = Mid$(strReadData,p,10) & vbNewLine Next p