Private Sub cmdBerechnen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdBerechnen.Click
        ' Berechnung ob man Heute schon mal einen Test gemacht hat
        Dim sr As New StreamReader("C:\Temp\BMI\BMI.txt")
        ' Letzte Zeile lesen und mit Split das Datum abtrennen
        ' ????
        Dim Line As String = '????? (letzte Zeile lesen)
        Dim SplitLine() As String = Line.Split(";")
        'If-Abfrage ob das datum das von heute ist
        If DateTime.Now.Date = SplitLine(0) Then
                Messagebox.Show("Sie haben heute bereits einen Test gemacht!")
        Else
        ' Bmi berechnen und ausgeben
        [...]

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak