Option Explicit
 
Sub command1_click()
  Opendat
End Sub
Sub Opendat()
  Dim sFile As String
  Dim sDateiendung As String
  Dim F As Integer
  Dim I As Integer
  Dim AllText As String
  Dim LineOfText As String
 
  On Error Resume Next
  sFile = ShowOpenDlg(Me, "*.pst ( Dateien)|*.pst", "Datei öffnen", App.Path)
  If sFile <> "" Then
    F = FreeFile
    Open sFile For Input As #F
    sDateiendung = LCase$(Right$(sFile, 4))
    Select Case sDateiendung
    Case "pst" & Chr$(0)
      ' Hier zur Probe überprüft, ob Dateiendung pst auch geöffnet wird.
      Text1(3).Text = sDateiendung
      MsgBox "Richtiger Dateityp"
    Case Else
      MsgBox "Datei kann nicht geöffnet werden."
      Opendat
    End Select
 
    Do Until EOF(F)
      For I = 0 To Text1.UBound
        Line Input #F, LineOfText
        AllText = AllText & LineOfText & vbCrLf
      Next I
    Loop
    Close #F
    ' hier die geöffnete Datei umschreiben
    Dim strLines() As String ' Array Alltext
    strLines = Split(AllText, vbCrLf) ' zeilenweise einlesen
    For I = 0 To UBound(strLines)
      Text1(I).Text = strLines(I)
    Next I
  End If
End Sub
Private Sub Command2_Click()
  Dim sFile As String
  Dim F As Integer, I As Integer
 
  On Error Resume Next
  sFile = ShowSaveDlg(Me, "*.pst ( Dateien)|*.pst", " Datei speichern", _
    App.Path)
  F = FreeFile
  If sFile <> "" Then
    Open sFile For Output As #F
    For I = 0 To Text1.UBound
      Print #F, Text1(I).Text
    Next I
    Close #F
  End If
End Sub