Dim iFree as integer
dim sText as string
dim sTextGes as string
iFree = Freefile
open dateiname for input as ifree
do until eof(iFree)
    line input #ifree, sText
    sTextGes = sTextGes & sText
loop
close ifree
richtextbox.text = sTExtGes

Kennst Du Hamburg?! Da nich'!

www.winterkonzert.de.vu