Private Sub cmdSave_Click() 
  ' TextBox-Inhalt in Text-Datei speichern 
  Dim FN As Integer 
 
  FN = FreeFile() 
  Open m_strFileName For Output As #FN 
  Print #FN, Text1.Text 
  Print #FN, Text2.Text 
  Print #FN, Text3.Text 
  Print #FN, Text4.Text 
  Close #FN 
End Sub

Private Sub cmdOpen_Click() 
  ' TextBox-Inhalt aus Datei einlesen 
  Dim FN As Integer 
  Dim strText As String 
 
  On Error GoTo err_Log 
  FN = FreeFile() 
  Open m_strFileName For Input As #FN 
  Line Input #FN, strText: Text1.Text = strText
  Line Input #FN, strText: Text2.Text = strText
  Line Input #FN, strText: Text3.Text = strText
  Line Input #FN, strText: Text4.Text = strText
  Close #FN 
  Exit Sub 
 
err_Log: 
  MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !", _ 
    vbOKOnly + vbInformation, Me.Caption 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de