Public Class Form1
  'Pfad befindet sich im bin\Debug-Verzeichnis des Projektes
  Dim Pfad As String = Application.StartupPath & "\Test.dat"

  Private Sub Form1_Load(ByVal sender As Object, -
          ByVal e As EventArgs) Handles MyBase.Load
    TextBox1.Text = Pfad
    TextBox2.Text = "Hallo"
    TextBox3.Text = ""
  End Sub

  Private Sub Button1_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button1.Click
    ' Zuerst prüfen ob Datei existiert
    If IO.File.Exists(Pfad) = False Then
      MsgBox("Datei Test.dat ist noch nicht vorhanden. Bitte erst"_
             """Uuml;berschreiben"" wählen")
      Exit Sub
    End If

    Select Case RadioButton1.Checked
      Case True
        ' Lesen mit IO.File
        TextBox3.Text = IO.File.ReadAllText(Pfad)

      Case False
        ' Lesen mit IO.StreamReader
        Using sr As New IO.StreamReader(Pfad)
          TextBox3.Text = sr.ReadToEnd
          sr.Close()
        End Using

    End Select
  End Sub

  Private Sub Button2_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button2.Click
    Select Case RadioButton1.Checked
      Case True
        ' Überschreiben mit IO.File
        IO.File.WriteAllText(Pfad, TextBox2.Text)

      Case False
        ' Überschreiben mit IO.StreamWriter
        Using sw As New IO.StreamWriter(Pfad, False)
          sw.WriteLine(TextBox2.Text)
          sw.Close()
        End Using
    End Select
  End Sub

  Private Sub Button3_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button3.Click
    ' Beenden
    Me.Close()
  End Sub
End Class