Dim ff as Integer
Dim txtZeile as String
    ff = FreeFile
    Open Dateiname For Input As #ff
    Do While Not EOF(ff)
        Line Input #ff, txtZeile
        txtBody = txtBody & vbCrLf & txtZeile
    Loop
    Close #ff

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell