Private Sub Command1_Click()
    Dim x As Integer
    Dim y As Integer
    If IsNumeric(Text1.Text) = False Then Exit Sub
    x = Val(Text1.Text)
    y = x
    x = x * 2
    x = x + y
    x = x * 2
    x = x / y
    Text2.Text = x
End Sub
 
Private Sub Form_Load()
    Label1.Caption = "Startzahl eingeben"
    Text1.Text = ""
    Label2.Caption = "Ergebniss"
    Text2.Text = ""
    Command1.Caption = "Berechnen"
End Sub