Public Sub CommandButton1_Click()
 
 
Dim r As Long
Dim umf As Long
 
 
r = TextBox1
 
umf = 2 * pi * r
TextBox2 = umf
 
 
End Sub
Private Sub CommandButton2_Click()
r = TextBox1
 
TextBox3 = flaeche()
End Sub
 
Public Sub TextBox1_Change()
r = TextBox1
 
End Sub
 
Private Sub UserForm_Click()
'Beenden
UserForm1.Hide
End Sub
 
 
Public Sub UserForm_Initialize()
 
 
UserForm1.Height = 350
UserForm1.Width = 450
 
TextBox1.Left = 30
TextBox1.Top = 30
TextBox1.AutoSize = True
TextBox1.Font.Size = 14
 
TextBox2.Left = 30
TextBox2.Top = 30
TextBox2.AutoSize = True
TextBox2.Font.Size = 14
 
TextBox3.Left = 30
TextBox3.Top = 90
TextBox3.AutoSize = True
TextBox3.Font.Size = 14
 
CommandButton1.Left = 30
CommandButton1.Top = 90
CommandButton1.Font = Arial
CommandButton1.Font.Size = 14
 
CommandButton2.Left = 30
CommandButton2.Top = 130
CommandButton2.Font = Arial
CommandButton2.Font.Size = 14
 
End Sub

Const pi As Single = 3.1415
 
Public Function umf()
 
r = TextBox1
umf = 2 * pi * r
 
End Function
 
Public Function flaeche()
flaeche = pi * (r * r)
End Function