Dim strName As String * 30                       'auf 30 zeichen beschränken, 
' oder so
Dim strVorname As String * 30
Dim strTelefon As String * 15
'die stringvariablen haben jetzt eine feste länge!
Dim strSaveString
 
 
Private Sub Command1_Click()
     strName = Text1.Text
     strVorname = Text2.Text
     strTelefon = Text3.Text
 
'weil du jetzt eine feste länge hast, die du später beim auslesen weißt, 
' brauchst du zum
'speichern keine tabs oder andere trennzeichen verwenden!
     strSaveString = strName & strVorname & strTelefon
     Open "c:\Telefonbuch.txt" For Append As #1
          Print #1, strSaveString
     Close #1
End Sub
 
'nun das auslesen, ich nehm mal den butten2 dafür
 
Private Sub Command2_Click()
Dim strGetData As String
Dim strNamensSuche as String * 30
 
strNamensSuche = Text4.Text
     Open "c:\Telefonbuch.txt" For Input As #1
          Do While EOF(1)
               Line Input #1, strGetData ' hier wird bei jedem durchlauf der 
               ' schleife ein satz
                                                             'aus dem 
                                                             ' Telefonbuch 
                                                             ' gelesen. von der 
                                                             ' 1. zeile bis 
                                                             'zur letzten zeile
               strName = Mid(strGetData, 1, 30) 'die ersten 30 zeichen 
               ' holen......also name
               strVorname = Mid(strGetData, 31, 30) 'ab dem 31 zeichen 30 
               ' zeichen holen
               strTelefon = Mid(strGetData, 61, 15) 'ab dem 61 zeichen 15 
               ' zeichen holen
               'jetzt mußt du dir ne prüfung einbauen, welchen satz du in die 
               ' textboxen
               'zurückschreiben willst
 
               'vielleicht noch ne textbox nr. 4 einbauchen in den du den namen 
               ' schreibst den
               'du suchen willst.
               If strNamensSuche = strName Then
                    Text1 = strName       'übergabe der einzelnen teile
                    Text2 = strVorname
                    Text3 = strTelefon
                    Exit Do 'schleife verlassen, da ja alles gefunden wurde, 
                    ' hoffentlich ;-)
               End If
          Loop
     Close #1
End Sub