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
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    Select Case Chr$(KeyAscii)
        Case "0" To "9"
        Case "+", "-", "*", "/", ".", ","
        Case Else
            KeyAscii = 0
    End Select
 
End Sub

Wer alles wei? kann sich ja zur?ck legen... und schlau tun ... ich geh?re nicht dazu...*lol*