Code:
FileGet(1, VB6setting.Value, LOF(1) - 99)
Schau dir mal diese Zeile an , die muss du natürlich anpassen , also in deinem Fall - 999

MfG