‘ Öffnen…

Dim data As String
Dim textdata As String

Open "Dateiname.txt" For Input As #1             ‘ Datei als Input #1 öffnen
Do Until EOF(1)                                           ‘ Bis zum ende der Textdatei
    Input #1, data                                        ‘ Mit der Variablen data wird der Input definiert
    textdata = textdata + data + vbNewLine     ‘ Weil die Variable data immer wieder durch die nächste eingelesene Zeile überschrieben wird, muss man eine zweite Variable definieren und den wert von data jedesmal dazu addieren und nach jeder Zeile einen Absatz mit vbNewLine
Loop
Text1.Text = textdata ‘die variable textdata in das Textfeld schreiben
Close #1  ‘ Close nicht vergessen

‘ anhängen an bestehenden text

Open "Dateiname.txt" For Append As #1                ‘Inhalt von Text2.Text an letzte Zeile der Textdatei anhängen
Write #1, vbNewLine + Text2.Text
Close #1



‘ textbox aktualisieren, nicht unbedingt nötig

DoEvents

Open "Dateiname.txt" For Input As #1
Do Until EOF(1)
    Input #1, data
    textdata = textdata + data
Loop
Close #1

Text1.Text = textdata

‘ Speichern…

Open "Dateiname.txt" For Output As #1                    ‘überschreibt komplette Textdatei mit inhalt von Text1.text
Write #1, Text1.Text
Close #1

sFile = ShowSaveDlg(Me, "*.txt (Textdateien)|*.txt", _
"Textdatei speichern", App.Path)
If (sFile <> "") Then

Open sFile For Output As #1
Write #1, Text1.Text
Close #1

End If

Dim data As String
Dim textdata As String

‘ Öffnen…
sFile = ShowOpenDlg(Me, "*.txt (Textdateien)|*.txt", _
  "Textdatei öffnen", App.Path)
If (sFile <> "") Then
 
Open sFile For Input As #1
Do Until EOF(1)
    Input #1, data
    textdata = textdata + data + vbNewLine
Loop
Close #1

Text1.Text = textdata

End If

Download adressen101.zip