Private Sub btnWerteLesen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnWerteLesen.Click
        If File.Exists(CurDir() & "\Mappe1.txt") Then
             txtAusgabe.Text = IO.File.ReadAllText (CurDir() & "\Mappe1.txt")
        Else
            MessageBox.Show("Mappe1.txt nicht gefunden", "Fehler beim Lesen" & _
              "einer Datei", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub