Option Explicit

Private m_strFileName As String

Private Sub Form_Load()
  Dim strAppPath As String

  strAppPath = ApplicationPath
  m_strFileName = strAppPath & "Beispiel.txt"

  Text1.Text = "Dies ist ein Mustertext, der gespeichert und " & _
       "auch wieder eingelesen werden kann." & vbCrLf & vbCrLf & _
       "Euer VB-Fun.de-Team."
End Sub

Private Sub cmdOpen_Click()
  Dim FN As Integer
  Dim strText As String

  On Error GoTo err_Log

  FN = FreeFile()
  Open m_strFileName For Input As #FN
    strText = Input(LOF(FN), 1)
  Close #FN
  Text1.Text = Mid$(strText, 2, Len(strText) - 4)

  Exit Sub

err_Log:
  MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !"
End Sub

Private Sub cmdSave_Click()
  Dim FN As Integer

  FN = FreeFile()
  Open m_strFileName For Output As #FN
    Write #FN, Text1.Text
  Close #FN
End Sub

Private Function ApplicationPath() As String
  Dim strPath As String

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  ApplicationPath = strPath
End Function