Private Sub ausrechnen_Click() 
If Text2.Text ="+" then
ergebnis.text = Text1.Text + Text3.Text
end if
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD

Private Sub ausrechnen_Click() 
If Text2.Text ="+" then ergebnis.text = val(Text1.Text) + val(Text3.Text)
If Text2.Text ="-" then ergebnis.text = val(Text1.Text) - val(Text3.Text)
If Text2.Text ="*" then ergebnis.text = val(Text1.Text) * val(Text3.Text)
If Text2.Text ="/" then ergebnis.text = val(Text1.Text) / val(Text3.Text)
End Sub

case "+"
ergebnis = Val(text1.text) + Val(text3.text)
case "*"
ergebniss = Val(text1.text) * Val(text3.text)
usw. und sofort.
End Select

Zitat:

Anmerkung Die Val-Funktion erkennt nur den Punkt (.) als gültiges Dezimalzeichen. Wenn Sie ein anderes Dezimalzeichen verwenden möchten (zum Beispiel bei internationalen Anwendungen), sollten Sie statt dessen die Funktion CDbl verwenden, um eine Zeichenfolge in eine Zahl umzuwandeln.

Private Sub ausrechnen_Click()
  Dim SC As Object, L$
 
  Set SC = CreateObject("ScriptControl")
  SC.Language = "VBScript"
  SC.ExecuteStatement ("L=" & Text1.Text & Text2.Text & Text3.Text)
  ergebnis.Text = SC.Eval("L")
End Sub

Gruss,

Zardoz