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