Dim datei As String
Dim dateinr As Integer
Dim temp As String
 
dateinr = FreeFile
datei = Dir$("C:\Test\test.txt")
 
Open datei For Input As dateinr
Do While Not EOF(dateinr)
Line Input #dateinr, temp
txt_svexp.Text = txt_svexp.Text & temp
Loop
Close dateinr