dim sDayText as string 
select case weekday(date)
    case 1
        sDayText = "Sonntag"
    case 2
        sDayText = "Montag" 'usw.
end select
filename = "Tagebuchtext von " & sDayText & ", " & format(date,"dd.mm.yyyy") & _
                    " " & format(time, "hh:mm:ss")

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