Private Sub Berechnen()
 
        Dim Gewicht As Single
        Dim Groesse As Single
        Dim Idealgewicht As Single
 
        Dim Faktor As Single = 0.9

Public Class Form1
 
Public Gewicht As Single
        Public Groesse As Single
        Public Idealgewicht As Single
 
        Public Faktor As Single = 0.9