Dim Prog1 As Integer
    Dim pInhalt1 As String
    Prog1 = FreeFile
    Open App.path & "\data\prog1.txt" For Input As #Prog1
    While Not EOF(Prog1)
    Line Input #Prog1, pInhalt1
    Close #Prog1
    frm_Konfigurieren.txt_Prog1.Text = pInhalt1
    Wend

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)