Private frage As String = Application.StartupPath & "\Aufgaben.txt"
    Private antwort As String = Application.StartupPath & "\Antworten2.txt"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        IO.File.AppendAllText(frage, TextBox1.Text & vbCrLf)
        IO.File.AppendAllText(antwort, TextBox2.Text & vbCrLf)
    End Sub