So, mit der Datei das habe ich jetzt so gemacht. Weil % und $ verursachen bei mir großen Schaden.
Code
Dim fileNum As Integer
Dim text As String
fileNum = Freefile()
Open "D:\\Daten\\Test.txt" For Input As fileNum
Do While Not Eof(fileNum)
Line Input #fileNum, text
Loop
Aber jetzt läuft der Agent nicht mehr, denn jetzt geht keine Mail mehr raus... Man, ich glaube echt ich bin zu blöd für alles....