Private Sub ReadData(ByVal sFile As String)
  Dim F As Integer
  Dim sLine As String
  Dim nLine As Long
 
  F = FreeFile
  Open sFile For Input As #F
 
  nLine = 0
  Do Until EOF(F) OR nLine > Text1.UBound
    Line Input #F, sLine
    Text1(nLine).Text = sLine
    nLine = nLine + 1
  Loop
  Close #F
End Sub
 
Private Sub WriteData(ByVal sFile As String)
  Dim F As Integer
  Dim i As Long
 
  F = FreeFile
  Open sFile For Output As #F
  For i = 0 To Text1.UBound
    Print #F, Text1(i).Text
  Next i
  Close #F
End Sub
 
Private Sub Text1_Change(Index As Integer)
  Check1(Index).Value = Abs(Text1(Index).Text <> "")
End Sub

ReadData App.Path & "\myData.txt"

WriteData App.Path & "\myData.txt"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de