Option Explicit
 
' Deklaration als Public unbedingt erforderlich
Public Zahl As Double
Private Sub Form_Load()
  ' Dem Scripting Control die Kontrolle
  ' über Die Form und seine Mitglieder geben
  ScriptControl1.AddObject "Form", Form1, True
End Sub
Private Sub Command1_Click()
  ' Code ausführen
  ScriptControl1.AddCode "Form.Zahl =" & Text1.Text
 
  ' Ergebnis der Berechnung im
  ' Label-Control anzeigen
  Label1.Caption = Zahl
End Sub