Private sub Wertübergabe()
 'Umfang berechnen >>> text1=Durchmesser
 umfang = val(text1).pi
 'Fläche >>>Text2 = Durchmesseer
 fläche = (val(text2)^2)*(pi/4)
end Sub
 
Private Sub Button1_click ()
 call Wertübergabe
end sub
 
Private Sub Button2_click ()
 call Wertübergabe
end sub