display text multiline which consist empty lines in between - in a textbox on a userform

**Lkivagten** · 12-30-2012, 10:20 PM

Hi guys

I have been trying to figure this out for several hours by now but im still stuck.

I will try to keep it simple:

i have a userform 1 with a commandbutton on top. When i press this button i want to open userform 2 which has a textbox1 on it and instantly load/display some text from a textfile to the textbox1 - the textfile got empty lines in between textlines.

the textfile is placed at : ActiveWorkbook.Path & "\Data\Tekst\Diverse tekst\ekstra toiletter.txt"

So far i have only been able to get the first line of text shown ,, if any.

How do i solve this?

Thanks in advance for any help or guidance to my problem.

/Jan

**Kiran.Sunkara** · 12-31-2012, 05:06 AM

See if this helps:

Private Sub CommandButton1_Click()
Dim fso As FileSystemObject
Dim ts As TextStream

TEXT_FILE_PATH = ActiveWorkbook.Path & "\Data\Tekst\Diverse tekst\ekstra toiletter.txt"

Set fso = New FileSystemObject
Set ts = fso.OpenTextFile(TEXT_FILE_PATH)

Me.TextBox1.Text = ts.ReadAll

ts.Close
Set ts = Nothing
Set fso = Nothing

End Sub

**Kiran.Sunkara** · 01-05-2013, 12:42 AM

Did it help?

display text multiline which consist empty lines in between - in a textbox on a userform

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

display text multiline which consist empty lines in between - in a textbox on a userform

Re: display text multiline which consist empty lines in between - in a textbox on a userfo

Re: display text multiline which consist empty lines in between - in a textbox on a userfo

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions