Imports System.IO
Public Class Form1
dim fs As FileStream("C:\Temp\BMI\BMI.txt", Filemode.create)
dim gewicht As integer = txtgewicht.text
dim größe as double = numgröße.value
dim BMI As Decimal = gewicht / (größe * größe)
BMI = Math.Round(BMI, 1)
swBMI.WriteLine(CStr(DateTime.Now.Date) & ";" & CStr(gewicht) & ";" & CStr(BMI))

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

iComputerfreak