Private Sub Laden_Click()
Open PATH & Text4.Text & ".txt" For Input As #1
    Do Until EOF(1)
Line Input #1, temp
         str = str & vbNewLine & temp  '
         'str = str & temp
    Loop
str = Mid(str, Len(vbNewLine)) 'damit fliegt die erste Leerzeile wiedr raus!
Close #1
Text2.Text = str
End Sub