Dim Prog1 As Integer
Dim pInhalt1 As String
 
Prog1 = FreeFile
Open App.path & "\data\prog1.txt" For Input As #Prog1
If LOF(Prog1) > 0 Then
  Line Input #Prog1, pInhalt1
  frm_Konfigurieren.txt_Prog1.Text = pInhalt1
End If
Close #Prog1

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de