dim temp as string
dim str as string
dim PATH as string
 
if right(app.path,1)<>"\" then
      PATH=app.path & "\"
else
      PATH=app.path
end if
 
Open PATH & list1.text & ".txt For Input As 1
    Do Until EOF(1)
        Line Input #1, tempstr=str & temp
         str=str & temp
    Loop
Close #1
text1.Text = str

Nichts ist umsonst!