Dim datei As String
Dim dateinr As Integer
Dim temp As String
 
datei = "C:\test.txt"
 
dateinr = FreeFile
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