Private Sub cmdLoad_Click()
 
    Dim strInhalt As String
    Dim strLines() As String    'Array
        strInhalt = txtReadAll("C:\Datei.txt")  ' Kompletter Inhalt aus der 
        ' Textdatei
        strLines = Split(strInhalt, vbCrLf)     ' Kompletten Inhalt aus der 
        ' Textdatei in das Array packen (Eine Zeile in jeder "Schublade")
                                                ' vbCrLf ist das Zeichen eines 
                                                ' Zeilenumbruchs
                                                ' die Funktion Split schneidet 
                                                ' jedesmal, wenn sie dieses 
                                                ' Zeichen findet
                                                ' den Text bis zu dem Zeichen 
                                                ' ab und packt ihn in das Array
                                                ' Man kann eine Datei (wie auch 
                                                ' im Tipp beschrieben) 
                                                ' Zeilenweise einlesen.
                                                ' Aber so siehst du gleich wie 
                                                ' ein Array funzt...
 
                                                                  'Simple 
                                                                  ' Methode:
        If UBound(strLines) >= 1 Then Text1.Text = strLines(0)    '   Für 
        ' jede Textbox wird die entsprechende Schublade
        If UBound(strLines) >= 2 Then Text2.Text = strLines(1)    '   aus 
        ' dem Array geöffnet.
        If UBound(strLines) >= 3 Then Text3.Text = strLines(2)
 
End Sub
 
Private Sub cmdSave_Click()
 
    ' Inhalt der 3 TextBoxen in einer Datei speichern
    Dim strSaveString As String
        strSaveString = Text1.Text & vbCrLf & _
                        Text2.Text & vbCrLf & _
                        Text3.Text
 
        txtWriteAll "C:\Datei.txt", strSaveString
 
End Sub
 
Public Function txtReadAll(ByVal sFilename As String) As String
 
  Dim F As Integer
  Dim sInhalt As String
 
  If Dir$(sFilename, vbNormal) <> "" Then
    F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close #F
  End If
 
  txtReadAll = sInhalt
End Function
 
Public Sub txtWriteAll(ByVal sFilename As String, ByVal sLines As String)
 
    Dim F As Integer
        F = FreeFile
 
        Open sFilename For Output As #F
            Print #F, sLines
        Close #F
End Sub

Mit freundlichen Gr??en,
Andy G.