Using fs As New IO.FileStream(path, IO.FileMode.Create), _
            swbmi As New IO.StreamWriter(fs)
            Dim gewicht As Integer
            If Not Integer.TryParse(txtgewicht.Text, gewicht) Then Stop
 
            Dim größe As Decimal = numgröße.Value / 100
            Dim BMI As Decimal = gewicht / (größe * größe)
            BMI = Math.Round(BMI, 1)
            swbmi.WriteLine(CStr(DateTime.Now.Date) & ";" & CStr(gewicht) & ";" _
              & CStr(BMI))
        End Using