IO.File.WriteAllText("f:\Aufgaben2.txt", InputBox("Please enter your" & _
          "Username:", "Input", "Username"))

    Private frage As String = "C:\Aufgaben.txt"
    Private antwort As String = "C:\Antworten.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

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist